掲示板のURL大量書き込みを防ぐ改造

うざい宣伝書き込みの中でもとくにうざいURL大量書き込みを防ぐ改造。

$kakikomi 書き込み内容の変数
&error　エラーサブルーチンとする。

$inhttp = 9; #URL書き込みの許容値（これ以上多かったらアウト）

$checkspam = $kakikomi ;
$httpspam = $checkspam =~ s/http\://g;
if( $httpspam > $inhttp ){ &error("投稿できません。"); }

これで10個以上URLを書き込まれた場合エラーになる。