2008年10月23日

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


#渡された文字列に非半角英字があるか?
#Perlの正規表現を使用して、渡された文字列に非半角英字があるかチェックします。(UTF-8向け)
#Perl 正規表現 非半角英字 UTF8
$str = "abcdefghijklmnopqrstuvwxyz";
if ( $str =~ /[^A-Za-z]/ ) {
print encode('shift-jis', decode('utf-8', "文字列に半角英字でない文字が存在する\n"));
} else {
print encode('shift-jis', decode('utf-8', "文字列に半角英字でない文字が存在しない\n"));
}
#↓
#"文字列に半角英字でない文字が存在しない"
posted by 台北猫々 at 21:45| Comment(0) | TrackBack(0) | 技術メモ(Perl)