まず次のような統計付の sort -u を用意します

#!/usr/pkg/bin/perl
while (<>) {
    s/ //g;
    chomp;
    $stat{$_}++; }
    foreach my $i (sort keys %stat) {
        printf("%-18s: %4d\n", $i, $stat{$i}); }

それを使って、sshd への無差別攻撃の数を調べます

ttyp2:makoto@hostname  8:30:45/060429(~)> \
sudo grep Invalid /var/log/authlog | awk '{print $10}' | perl perl/practice/stat-sort-u
Password:
200.67.149.81     :    3
217.158.94.4      :   12
218.22.26.98      :    2
220.232.130.80    : 1332
86.101.30.12      :   20

2005/10/19 の日記 には別の方法で数えていると書いてある。