全角ひらがな、漢字をマッチさせたい

質問

Perlでフォームに入力された値をチェックするとき、入力される文字列は半角文字以外を入力されるとエラーになるスクリプトを書きたいと思っています。
（ただし、半角に出来る文字「カタカナ、記号等」は半角に変換するのでエラーでは無いとしたいです）

どうすれば実現出来るでしょうか。
よろしくお願いします。

回答No.1

sssohei · ベストアンサー

パターンマッチを利用することをオススメします。
とりあえず、余計なマッチミスを防ぐためにも、EUCコードに変換してから処理を行います。
参考URLのページに詳しく解説されています。
参考URLのページをみても分からなければ、補足をお願いします。

一応、主要な文字コードのパターンを記しておきます。
$nobashi = '(?:\xA1[\xBC\xBD\xC1])'; # ー－～
$kigo = '(?:[\xA1\xA2][\xA1-\xFE])'; # 全角の記号
$suuji = '(?:\xA3[\xB0-\xB9])'; # ０－９
$alphabet = '(?:\xA3[\xC1-\xDA\xE1-\xFA])'; # 全角英字
$alpha_big = '(?:\xA3[\xC1-\xDA])'; # 全角英字（大文字Ａ-Ｚ）
$alpha_small = '(?:\xA3[\xE1-\xFA])'; # 全角英字（小文字ａ-ｚ）
$hiragana = '(?:\xA4[\xA1-\xF3])'; # ぁ～ん
$katakana = '(?:\xA5[\xA1-\xF6])'; # ァ～ヶ

参考URL：

http://www.din.or.jp/~ohzaki/perl.htm

補足

回答ありがとうございます。

参考URLを見てやってみたのですがうまくいきません。
カタカナが１文字の時はうまく行くようなのですが、複数のカタカナになった場合、失敗します。
文字コードは全てEUCで行っています。

以下がやろうとしている手順です。

１．全角文字を半角文字へ変換する

２．チェックを行う

#１バイト文字以外の時
if($buf !~ /[\x00-\x7F]/){
　　#半角カタカナ以外のとき
　　if($buf !~ /(?:\x8E[\xA6-\xDF])/){
　　　　print "NG\n";
　　　　exit;
　　}
}
print "OK\n";

どこがおかしいのでしょうか。
正規表現はまだよく分かっていないためご迷惑をおかけしますがよろしくお願いします。