lynx -dump localhost/server-status/ |perl -ne 'print "$1\n" if /(\d+\.\d+\.\d+\.\d+)/'
|perl -ne 'my %a; while (chomp($i=<>)) {$a{$i}++;}; foreach $k (keys(%a)) { print "$k \t $a{$k} \n"; }'
Написано 5 минут назад на коленке, так что не судите строго
Выводит картинку вида:
59.92.41.104 8
62.105.27.67 2
212.42.84.34 1
212.152.39.124 2
195.212.29.75 4
81.242.67.168 1
66.142.252.20 3
212.57.168.44 1
61.1.81.81 9
72.30.133.219 1
82.207.77.212 2
81.195.43.78 2
192.251.125.85 3
203.200.126.195 1
24.27.203.235 8
217.118.90.1 8
195.5.12.220 2
205.188.116.134 128
212.98.171.161 1
83.237.69.156 1
83.135.174.200 1
85.140.204.135 1
80.94.230.74 7
195.239.6.115 1
84.204.126.37 1
213.184.241.104 1
217.10.38.6 2
193.0.240.33 1
195.158.8.229 5
217.78.184.140 1
81.211.127.57 1
От серьезного DOS не спасет, но если атакующих хостов немного, то видно нормально. Рекомендуется увеличить параметр MaxCLients для более внятной картины...
))