RE: RE: Word Counter

How about a round of golf, merlyn? perl -ne '$a{$_}++ for split; END { print join "\n", (sort { $a{$b} <=> $a{$a} } keys %a)[0 .. 9]; } <filename>

Comment on RE: RE: Word Counter Download Code

Replies are listed 'Best First'.
RE: RE: RE: Word Counter by takshaka (Friar) on May 09, 2000 at 22:16 UTC
`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>`	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks