in reply to RE: Word Counter
in thread 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>

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]

In Section Craft