2007-04-11から1日間の記事一覧

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)+$…