2008年03月31日

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


$str = " abcdefghijklmnopqrstuvwxyz!#$&'()[]@";

if ( $str =~ /^[\x20-\x7E]+$/ ) {
print encode('shift-jis', decode('utf-8', "すべてがASCIIである\n"));
}else{
print encode('shift-jis', decode('utf-8', "すべてがASCIIでない\n"));
}

※標準出力の文字エンコーディングをUTF8→SJISに変換しています(Eclipseで動作確認している都合です。コンソールがSJISのみ対応なので)
posted by 台北猫々 at 21:41| Comment(0) | TrackBack(0) | 技術メモ(Perl)