2008年04月26日

正規表現で、文字列は全て全角カタカナか?のチェック(Perl編)

★★★
正規表現で、文字列は全て全角カタカナか?のチェック(Perl編)


UTF-8対応です。



$str = "アイウエオワイウエオン";
if ( $str =~ /^(?:\xE3\x82[\xA1-\xBF]|\xE3\x83[\x80-\xB6])+$/ ) {
print encode('shift-jis', decode('utf-8', "すべてが全角カタカナである\n"));
} else {
print encode('shift-jis', decode('utf-8', "全角カタカナでない文字がある\n"));
}



標準出力をUTF8→SJISに変換しているものは、開発環境がWindows+Eclipseの都合です。Windows+Eclipseのコンソールは、SJISエンコーディングオンリーなので。
posted by 台北猫々 at 23:20| Comment(0) | TrackBack(0) | 技術メモ(Perl)
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/14451682

この記事へのトラックバック