【URLのみの1行広告】広告書き込み対策 part1

[0213 動け動けウゴウゴ２ちゃんねる 03/08/12 19:11 ID:NVSp6CGo]

my $ngwords = <<'EOT'; # 次の行からEOTの直前まで、NGWORDを改行で区切って列挙

action=in
id=
in=
\/\?
ACC=
cgi\?
php\?

EOT

$ngwords =~ tr/\n//s;
$ngwords =~ s/^\n//;
$ngwords =~ s/\n$//;

foreach (split /\n/, $ngwords) {
    if ($FORM{'MESSAGE'} =~ /$_/) return 1;
}