« 2006年01月 | メイン | 2006年03月 »

2006年02月01日

半角カタカナの判定

# $str に半角カタカナが含まれているか判定する

if ($str =~ /\x8E/) {
print "含まれている\n";
}

半角カタカナが含まれているかどうかを判定するには,EUC-JP では /\x8E/ を調べるだけでできます。

perlメモからの引用です

最近のエントリー最近のエントリー