半角カタカナの判定

user-pic
0

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

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

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

perlメモからの引用です

トラックバック(0)

トラックバックURL: http://bob777.net/mt/mt-tb.cgi/49

コメントする

このブログ記事について

このページは、Bobが2006年2月 1日 11:33に書いたブログ記事です。

ひとつ前のブログ記事は「CM」です。

次のブログ記事は「Movabletype3.2へ移行という名のリニューアル」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。