フォームデータ内の特定文字列の該当件数の取得について

質問

簡単に言ってしまえば、掲示板のスパム投稿を拒否したいのですが、現在は禁止ワードを一つでも含んでいると拒否されてしまいます。
URLを一つも書き込めないのは不便なので、禁止ワードが本文中に複数個（指定数）書かれていたら拒否するようにしたいのですが、どのようにしたらいいのでしょうか？
ちなみに、今はこのような処理を行っています。

$comment中に本文が入ります。

# 禁止ワード処理
$flag = 0;
@check2=("a href=","tp://");

foreach $check2(@check2){
　　if ($comment =~ m/$check2/){
　　　　$flag=1;
　　}
}

if ($flag eq 1){
　　&error("Deny access!:Spam flag:$flag");
}
　　# ここまで

よろしくお願いいたします。

回答No.1

BLUEPIXY · ベストアンサー

#こんな感じでどうでしょう

$limit=2; #禁止ワード該当制限回数

$count = 0;
@check2=("a href=","tp://");

foreach $check2(@check2){
$count += @dummy = ($comment =~ m/($check2)/g);
}

if ($count > $limit){
&error("Deny access!:NG WORD COUNT:$count");
}

お礼

完璧でした。
ありがとうございました。