| #!/usr/bin/perl | |
| my %buckets = (); | |
| my $highest = 0; | |
| my $lowest = 0; | |
| while (<>) { | |
| /^.\s+(-?\d+)\s+/ or next; | |
| $buckets{$1}++; | |
| if ($1 > $highest) { $highest = $1; } | |
| if ($1 < $lowest) { $lowest = $1; } | |
| } | |
| for my $i ($lowest..$highest) { | |
| my $count = $buckets{$i}; | |
| $count ||= 0; | |
| print "$i $count\n"; | |
| } |