外人（っつってもいいよな、迷惑だし）コメントスパム対策を研究してみる

なんか方々で鬱陶しい事してくれてるので、とりあえず考えてみる。

まあ英文オンリーのコメント排除すればいいんだろうけど。
正規表現で引っ掛けるとなると、「２バイトコードが無い」という事になるか。
という事で($mes=これから書き込む予定のデータ)

# if( $mes !~ /[\0x81-\xEF]/ ){

# (もっといい正規表現をぐぐって見つけた)

if( $mes !~ /(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/ ){ 
    # エラー処理
} else {
    # 書き込み処理
}

ってところかな。