2008年10月27日

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


#渡された文字列に非半角数字があるか?
#Perlの正規表現を使用して、渡された文字列に非半角数字があるかチェックします。
#Perl 正規表現 非半角数字
$str = "0123456789a";
if ( $str =~ /[^0-9]/ ) {
print encode('shift-jis', decode('utf-8', "文字列に半角数字でない文字が存在する\n"));
} else {
print encode('shift-jis', decode('utf-8', "文字列に半角数字でない文字が存在しない\n"));
}
#↓
#"文字列に半角数字でない文字が存在しない"

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

メールアドレス:

ホームページアドレス:

コメント:

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

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