2008年06月18日

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


#全て半角英数字か?
#Perlの正規表現で、渡された文字列が全て半角英数字かチェックします。(UTF-8向け)
#Perl 正規表現 半角英数字 UTF8
$str = "abcdefghijklmnopqrstuvwxyz0123456789";
if ( $str =~ /^[0-9A-Za-z]+$/ ) {
print encode('shift-jis', decode('utf-8', "すべてが半角英数字である\n"));
} else {
print encode('shift-jis', decode('utf-8', "すべてが半角英数字ではない\n"));
}
#↓
#"すべて半角英数字である"



※標準出力をUTF8→SJISに変換しているのは、開発環境がWindows+Eclipseの都合です。Windows+Eclipseのコンソールは、SJISエンコーディングオンリーなので。


posted by 台北猫々 at 22:39| Comment(0) | TrackBack(0) | 技術メモ(Perl)
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

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

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