|
| カレッヂ |
質問者 りょうへい
投稿日 2005/4/25(月) 05:12:55
[削除] (返信・回答が付いた後にこの質問の削除はできません)
はじめまして。いつも拝見し、勉強させてもらっています。
今日は、簡易データベース�兇慮〆�が、うまくいかないので、どうしたらいいか、
ご教授願いたくこちらに書き込ませてもらいたいと思います。
($tn_name,$seiri,$status,$date_yy,$date_mm,$date_dd,
$p_name,$division,$p_mail,$tel,$res,$e_mail,$comp,$goal,$prep,$result,$comment) = &DecodeCSV($data);
この部分は、何度も見返して、正しい配列になっていることを確認しました。
そして以下が検索の条件文です。
# ＴＮの名前(マッチ)
if ($EUC{'tn_NAME'} ne '') {
$EUC{'tn_NAME'} =~ s/&/&/g;
$EUC{'tn_NAME'} =~ s/"/"/g;
$EUC{'tn_NAME'} =~ s/</</g;
$EUC{'tn_NAME'} =~ s/>/>/g;
if ($tn_NAME =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$EUC{'tn_NAME'}/i) { ; } else { next; }
}
# ＣＳの名前(マッチ)
if ($EUC{'res'} ne 'all') {
$EUC{'res'} =~ s/&/&/g;
$EUC{'res'} =~ s/"/"/g;
$EUC{'res'} =~ s/</</g;
$EUC{'res'} =~ s/>/>/g;
if ($res =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$EUC{'res'}/i) { ; } else { next; }
}
この、二つの部分一致検索が動作しません。
# 整理番号(一致)
if ($EUC{'seiri'} ne 'all') {
if ($seiri eq $EUC{'seiri'}) { ; } else { next; }
}
こちらの、４桁の整理番号では、うまく動作するのですが・・・。
どなたか、厚かましいご質問で恐縮ですが、お教えいただけたら幸です。
よろしくお願いします。
【習熟度】多少の改造ができる |
返信(回答)する
| Ｗｅｂ裏技 |