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)