Friday Perl Challenge

[Benjamin Smith]

On Fri, Apr 20, 2007 at 10:13:24AM +0100, Joel Bernstein wrote:
> perl -nle 'map{$X{$_}++}split/\s+/}{print"$_:$X{$_}"for sort keys%X'

  perl -alne '$h{$_}++for at F}{print"$_:$h{$_}"for sort keys%h'

-- 
Benjamin Smith <bsmith at cabbage.org.uk>