今日のワンライナー

Perl Security Network Admin 
perl -ne '/Host (\d+\.\d+\.\d+\.\d+) has been blocked/&&push(@{$h{$1}},$_); END{map{printf"%d:%s\n",@{$_}}sort{$b->[0]<=>$a->[0]}grep{$_->[0]>1}map{[scalar@{$h{$_}},$_]}keys%h}' ~/Mail/root/swatch/*

これは何をしているかというと、

Host xxx.xxx.xxx.xxx has been blocked

というような内容が含まれるメールから、複数回記録されたIPアドレスを回数順に表示する。

ちなみに出力結果(抜粋)は、

12:194.228.3.160
6:219.239.236.154
6:210.212.85.11
6:62.12.107.221
.
.
.

(これは去年の11月からのトータル数)
こいつらはブラックリスト入り決定。