2ch専用ブラウザ「Navi2ch」

410 ：名無しさん＠お腹いっぱい。 ：01/10/06 11:44

>>407 こんなのどう？

#!/usr/bin/perl

$listfile = "$ENV{'HOME'}/.navi2ch_killlist";

$listfile = shift(@ARGV) if( -f $ARGV[0]);

open(LIST, "<$listfile") || die("1<><>01/01/01 00:00<>can not open kill list.<>\n");
while(<LIST>){
chomp;
($category, $uri) = split(/\s/, $_);
next if($category eq '' || $uri eq '');
$list{$uri} = $category;
}
close(LIST);

while(<>){
foreach $uri (keys(%list)) {
last if(s/$uri/DELETED($list{$uri}: $uri)/);
}
print;
}

インデント崩れるかな。
で、~/.navi2ch_killlist って file に、

SPAM http://www1.freehost.ne.jp/~gikoneko/onnanoko.html
グロ http://duffus.ops.uunet.co.za/~nic/gallery/splat.jpg
グロ http://vagina.rotten.com/motorcycle/motorcycle.jpg

とか、書いておく。

板違いにてsage。

read.cgi ver5.26+ (01/10/21-)