#渡された文字列に非半角数字があるか?
#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"));
}
#↓
#"文字列に半角数字でない文字が存在しない"
2008年10月27日
渡された文字列に非半角数字があるか?のチェック(Perl編)
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/21963335
この記事へのトラックバック
http://blog.sakura.ne.jp/tb/21963335
この記事へのトラックバック