2008年12月12日

渡された文字列に半角カタカナがあるか?のチェック(Perl編)


#文字列に半角カタカナが存在するか?
#Perlの正規表現を使用して、渡された文字列に半角カタカナがあるかチェックします。(UTF-8向け)
#Perl 正規表現 半角カタカナ UTF8
$str = "aaaaアあああああ";
if ( $str =~ /(?:\xEF\xBD[\xA1-\xBF]|\xEF\xBE[\x80-\x9F])/ ) {
print encode('shift-jis', decode('utf-8', "文字列に半角カタカナが存在する\n"));
} else {
print encode('shift-jis', decode('utf-8', "文字列に半角カタカナが存在しない\n"));
}
#↓
#"文字列に半角カタカナが存在する"
posted by 台北猫々 at 18:28| Comment(1) | TrackBack(0) | 技術メモ(Perl)
この記事へのコメント
半角カナが抜き出せず困っていたので大変助かりました。ありがとうございました。
Posted by kzo at 2010年06月03日 12:24
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

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

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