ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch5/tabulate.eg

Text File | 1992-10-18 | 133 b | 8 lines

@who = grep(s/\s.*\n?$//,`who`);
for (@who) {
    $count{$_}++;
}
for (sort keys %count) {
    printf "%16s %d\n", $_, $count{$_};
}