正規表現「ひらがな」以外の書き込みをチェック

掲示板に実装したけど未確認。

if ($in{'comment'} !~ /(?:\x82[\x9F-\xF1])/) { &error; }

漢字を使ってくるSPAM投稿にも有効・・・なはず。

Produce by Sieg: [Perl での正規表現]
http://sieg.xeong.com/archives/2005/06/perl.html
# 全角ひらがな [ぁ-ん]
$str = '(?:\xA4[\xA1-\xF3])'; # EUC-JP
$str_sjis = '(?:\x82[\x9F-\xF1])'; # SJIS