鷹の島: UTF8で全角カタカナの入力チェック
■ UTF8で全角カタカナの入力チェック Perl スクリプトなんですけど、入力値がカタカナかどうかをチェックしたくて以下のようにやりました。 もっとちゃんとしたやり方がありそうなので誰か知っていたら教えて下さい。 入力も出力も UTF8 です。変数 $kana にはチェックしたい文字列が入っているとして…。 utf8::decode($kana); if($kana !~ /^([\x{30A1}-\x{30F6}])+$/) { print "全部カタカナで入力しろやゴルァ。"; } こんな感じ。 少... > このページを見る
はてなブックマーク
