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
Thanks, Mike. It also works for me. I will try to make a script from it.
Paul
____________________________________________________
Want to buy your Pack or Services from MandrakeSoft?
Go to http://www.mandrakestore.com
Join the Club : http://www.mandrakeclub.com
____________________________________________________
