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)
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

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

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