Perl:英数字チェック
perlメモ
<テスト・ソース>
#!c:¥perl¥bin¥perl
# 英数字チェック
$a[0] = ‘abc’;
$a[1] = ‘123’;
$a[2] = ‘a1z-d’;
$a[3] = ‘+’;
$a[4] = ‘+123’;
$a[5] = ‘95.15’;
$a[6] = ’95/15′;
$end = @a;
for($i=0; $i<$end; $i++){
if($a[$i] =~ /^[0-9A-Za-z]*[0-9A-Za-z][0-9A-Za-z]$/){
print "$a[$i]:Yes¥n";
}else{
print "$a[$i]:No¥n";
}fs
}
exit 0;
<実行結果>
D:¥test>perl test.cgi
abc:Yes
123:Yes
a1z-d:No
+:No
+123:No
95.15:No
95/15:No