Keep It Simple, Stupid | |
PerlMonks |
RE: RE: RE: Word Counterby takshaka (Friar) |
on May 09, 2000 at 22:16 UTC ( [id://10786]=note: print w/replies, xml ) | Need Help?? |
perl -lne '$a{$_}++ for split } print for (sort { $a{$b} <=> $a{$a} } keys %a)[0..9]; {' <filename>
or even better:
perl -lpe '$a{$_}++ for split } for ((sort { $a{$b} <=> $a{$a} } keys %a)[0..9]) {' <filename>
In Section
Craft
|
|