半角カタカナの判定
# $str に半角カタカナが含まれているか判定する
if ($str =~ /\x8E/) {
print "含まれている\n";
}
半角カタカナが含まれているかどうかを判定するには,EUC-JP では /\x8E/ を調べるだけでできます。
« 2006年01月 | メイン | 2006年03月 »
# $str に半角カタカナが含まれているか判定する
if ($str =~ /\x8E/) {
print "含まれている\n";
}
半角カタカナが含まれているかどうかを判定するには,EUC-JP では /\x8E/ を調べるだけでできます。