2ch専用ブラウザ「Navi2ch」

407 ：名無しさん＠お腹いっぱい。 ：01/10/06 07:06

ブラクラだの広告だののfilterとして、

#/usr/bin/perl
while(<>) {
$_ = "\n" if /gikoneko/;
$_ = "\n" if (m!oss.jodi.org!);
$_ = "\n" if (m!cttpopnet.syo-ten.com!);
$_ = "\n" if (m!bbx.kidd.jp!);
$_ = "\n" if (m!www.url.co.jp!);
(略)
print;
}

ってなスクリプトを書いて


(setq navi2ch-article-filter-list
'(("perl" "/home/nanasi/bin/navi2ch-filter.pl")))

して、うっとうしいのをどんどん消しているつもりなんですが、
この書き方でずらずら書いてるのは面倒。
もっと簡単に書けると思うんですが、どうしたらいいっすか?
ファイルの一部にその文字列だけ書けばOKってな感じにしたいです。
こりゃnavi2chの質問じゃなくてperlですね。

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