禁止ワードを設定できる掲示板に改造

掲示板にしつこく宣伝書き込みをされたりして困ったときに。
禁止ワードを設定できる掲示板に改造してみる。

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

$badcomment = 'コメント１,コメント２'; # 禁止ワード（カンマで区切って複数指定可）

$badcomment =~ tr/,/|/;
$spam = $kakikomi =~ s/($badcomment)//g;
if( $spam > 0 ){ &error("投稿できません。"); }

こんな感じで、宣伝先のサイトのドメインとかURLを引っかけてしまえばいいと思う。