△▲ WebProg 初心者の質問 pert14▲△

perl初心者です。
掲示板に英文のスパムが大量に投稿されて困っています。
日本語が一文字も含まれない英文のみの投稿はすべて拒否することで解決したいのですが、

if ($article =~ /[a-zA-Z]/) { &reject; }

では日本文に英字が一文字でも入っていれば拒否されてしまいます。
どのように処理すれば良いのか教えていただけないでしょうか。

よろしくお願いします。

jcode.pl等でコード系をテストする

if ($article !~ /[^ -~¥s¥n]/) { &reject; }

>>699
ありがとうございます！
全然意味わからないんですがちょっと試してみます。

あれ、何かうまくいかない。最初から拒否されてるみたい。
助けてください〜

=~ じゃなくて、ちゃんと !~ にした？

^[\w!"#$%&'()=~\@`\[\{+*\}\];:<>?_-]+$
でどう？
記号部分は適当に書いたからエラーが出たら適度にエスケープしといて

>>702
ちゃんとしたんですが・・・もしかしたら$articleが空だとrejectされちゃいます？

>>703
if ($article !~ / ^[\w!"#$%&'()=~\@`\[\{+*\}\];:<>?_-]+$ /)
って書けばいいんですか？
英数字と英文でも使う記号以外が含まれていれば真って感じですか？
これも試してみます。

皆さん、本当にありがとうございます。
if ($article !~ /[日本語]/) { &reject; }
とか出来ればいいんですけどね・・・

shift-jis限定

=~ /^[\x00-\x7F]$/

>>705
短い！
フォームのデコードで、
&jcode'convert(*value,'sjis');
ってやってるみたいなのでこれから試して見ます。

駄目でした。適当に英文入れたらrejectされませんでした・・・

>>704
$articleが空だとrejectされるね。それが嫌なら

if ($article && $article !~ /[^ -~¥s¥n]/) { &reject; }
か
if ($article =~ /¥S/ && $article !~ /[^ -~¥s¥n]/) { &reject; }

改行コードに¥rが含まれるなら、それも追加で。

ちなみに >>699 は文字コード非依存で
if ($article !~ /[日本語1文字]/) { &reject; }
なコード。

あ遺憾 + が抜けとった

=~ /^[\x00-\x7F]+$/

my ($mat, $code) = &jcode'getcode (\$article);
&reject if $code ne 'sjis';

ありがとうございます！
if ($article && $article !~ /[^ -~\s\n]/) { &reject; }
でうまく行きました。
空でrejectされちゃうと掲示板の閲覧まで拒否られちゃう仕様だったみたいです。
^ -~\s\n が何をやってるかわからないと気持ち悪いので自分で勉強して見ます。

本当にありがとうございました。