Friday Perl Challenge

[Luis Motta Campos]

On Apr 20, 2007, at 1:19 PM, Luis Motta Campos wrote:
>   Do I win extra points for using a /e regexp? :-)
>
> perl -nle 's{\S+}{$w{$&}++;}eg}{print"$_,$w{$_}"for sort keys%w'

   And for additional pretty printing? :-)

perl -MData::Dumper -nle 's/\S+/$w{$&}++/eg}{print Dumper\%w'

--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}