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)