referer SPAM

そろそろ対策を考えてみる。
とりあえず
grep 'http://[^/]*$' *.tdr |cut -d ' ' -f 2 | sort | uniq
って感じで問題の URL を抽出して、
無視リストに追加。

その後

perl -ni.bak -e 'print $_ unless $_=~/http:\/\/[^\/]*$/;' *.tdr
で、ファイルからも消去。

そしてキャッシュを消して終了。

追記

大野
http://elpeo.jp/diary/

から「この perl 激しくださいな。」との指摘をうける。
美しい perl とは
perl -i.bak -ne 'm!http://[^/]*$! || print' *.tdr
だそうだ。