半角カナを拒否したつもりが漢字も拒否されてしまうんです

質問

お世話になります。
http://katsubemakito.net/cgiperl/cgi/check/post-10.html
↑このページを参考に、入力された文字列に半角カナが入っていた場合にエラーメッセージを表示する仕組みを既存CGI（フリーウエア）に追加しようと、
---------------------------------------------------------------
if($name eq "フリガナ"){
$xx =$value;
$jd_EUC_J_k = '(\xA5[\xA1-\xF6])|(\x8E[\xA6-\xDF])'; # EUC_JP
$jd_s_JIS_k = '(\x83[\x40-\x96])|([\xA6-\xDF])'; # ShiftJIS
if($xx =~ /[\xA1-\xDF]/){@error[2] = "半角カナはご使用にならない下さい<BR>";
$errorh = "1";
;}
$value = $xx;
}
---------------------------------------------------------------
というソースを付け加えたところ、確かに半角カナは拒否してくれるようになったのですが、平仮名や漢字で入力された場合もエラーになってしまいます。
どうしてこういう現象が起こってしまうのでしょう？
この半角カナ拒否はフリガナ欄だけに使う分には今のままでいいのですが、住所を入力する欄にも使おうと思っていたので、このままだと使えないなと思って困っています。
このソースを加えなければ漢字も平仮名も拒否されないので、この追加部分以外のどこかに漢字拒否や平仮名拒否のルーチンが入っているとも思えないのですが、理由や対処法に心当たりのある方はいらっしゃらないでしょうか？

どうかよろしくお願い致します。

回答No.1

sakusaker7 · ベストアンサー

なぜそのような動作になるか、ですが、文字を文字単位ではなく
バイト単位でなめていっているからです。

たとえばShiftJISだと
>printf "\xc5"
ナ
0xc5 は(変換されてますが)半角カナの'ソ’です。
そして、
>printf "\x93\c5"
駐

のように、文字の一部に同じ値のバイトを
持ってしまっているものが幾つかあります。
このため、

if($xx =~ /[\xA1-\xDF]/)

この判定に引っかかってしまっているというわけです。

つかリンク先見ましたけどひどいですね。

とりあえず
$jd_EUC_J_k = '(\xA5[\xA1-\xF6])|(\x8E[\xA6-\xDF])'; # EUC_JP
$jd_s_JIS_k = '(\x83[\x40-\x96])|([\xA6-\xDF])'; # ShiftJIS

この辺で何をしようとしているのか良くわかりませんが、
とりあえず ecu-jp なら、0x8e が出てるかどうかだけみても
半角カナがあるかどうかは判定できます。
ShiftJISは文字単位で考慮してみないといけないですね。

Unicodeに変換していいのなら話はラクなんですが
ダメですか?w

お礼

早々にご回答頂きましてどうもありがとうございました！
ははぁ、２バイト文字までチェックされちゃうんですね。
納得です。
私はPerlの知識が浅いので、「もしやif($xx =~ /[\xA1-\xDF]/)というのは"半角カナが含まれている場合"じゃなくて"全角カナ以外の文字が含まれている場合"という判別方法だったりして？」と思ってしまっていました。

> ecu-jp なら、0x8e が出てるかどうかだけみても
> 半角カナがあるかどうかは判定できます。

あ、そうなんですか！ それなら、丁度、このCGIでは後にデータをeucに変換している部分があるので、そこにエラー判定を持って行くことで私でもいじれそうです。
Unicodeにしちゃうと、後でそれをどういじったらいいかまたわからなくなっちゃうので、 eucでやってみます。

どうもありがとうございました！