tmhsiao's Journal: I love perl

I love being able to write something like this:

perl -F: -ane '$hash{$F[0]}++;} for my $key (keys %hash) { print "$key: $hash{$key}\n"; } {' <file>