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