全角ひらがなを判定するには

質問

Ｐｅｒｌの送信フォームからの受信システムで

$name_kana=$in{'name_kana'};

if($name_kanaが全角かなか判定){
全角かなの時の処理}
else{
そうじゃない時の処理}

としたいのですが、$name_kanaが全角かなか判定するにはどんな条件式を書いたらよいのでしょうか？

回答No.1

z_liang_00 · ベストアンサー

jperlなどで日本語が使えるのであれば、
　　if($name_kana=~/^[ぁ-ん]+$/) {
日本語が使えないのであれば、
文字コードが日本語EUCなら、
　　if($name_kana=~/^(\xA4[\xA1-\xF3])+$/)
という感じで如何でしょうか。

お礼

返事が遅れました。
すみません。
無事できました。ありがとうございます。