perl 文字コード
全角カナの大文字だけ許可したかったので正規表現を作った。
use Jcode; my $hoge = Jcode->new("カナ")->euc; my $zkatakana_omozi = '(?:\xA5[\xA2\xA4\xA6\xA8\xAA-\xC2\xC4-\xE2\xE4\xE6\xE8-\xED\xEF\xF2-\xF4])'; if( $hoge =~ /^($zkatakana_omozi)+$/ ) { warn "ok"; }
下記のサイト様にお世話になりました。
http://www.din.or.jp/~ohzaki/perl.htm#Character
http://ash.jp/code/codetbl2.htm
量指定子がうまくいかん