On Fri, 20 Aug 2004 15:13:16 +0100
Paul Smith wrote:
> michael higgins wrote:
> > perl -e 'open F,"<:encoding(iso-8859-9)",$ARGV[0];for(<F>){for(split
> > /\W+/,$_){$t{lc $_}++}}for(map{$_->[0]}sort {$a->[1] <=> $b->[1]||
> > $a->[0] cmp $b->[0]}map{[$_,$t{$_}]} keys %t){print $_, " => ", $t{$_},
> > "\n"}' thenews.txt
I missed part of this thread and I don't know perl very well, but
I'd like to know the difference between the perl code above and:
cat file.txt | tr "\f\r\t\v " "\n" | sort | uniq -c
Brenda Bell
Henniker (the only one on earth)
New Hampshire (the state with 5 seasons: black fly, tourist, foliage, ski and mud)
____________________________________________________
Want to buy your Pack or Services from MandrakeSoft?
Go to http://www.mandrakestore.com
Join the Club : http://www.mandrakeclub.com
____________________________________________________
