Message-ID: <4601AAB0.7070704@aas.duke.edu>
Date: Wed, 21 Mar 2007 17:59:12 -0400
From: Teddy Salazar <teddy@aas.duke.edu>
User-Agent: Thunderbird 1.5.0.10 (X11/20070304)
MIME-Version: 1.0
To: Astrachan Owen <ola@cs.duke.edu>
Subject: perl wordfreq
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Here are a couple perl tries at a wordfreq script.  I received the link 
from the DULUG list. I use perl mostly.
The first try uses -n in the shebang if that's OK.  If not, try #2 
below. Both are similar.
1.
#!/usr/bin/perl -n

map {$h{lc($_)}++} split/\s/, $_;

END {
    map { print "$h{$_}\t$_\n"} sort { $h{$b} <=> $h{$a} || $a cmp $b } 
keys %h
}
------------------------------------------------

2.
#!/usr/bin/perl

while(<>){
map { $h{lc($_)}++} split /\s/, $_;
}
map { print "$h{$_}\t$_\n"} sort { $h{$b} <=> $h{$a} || $a cmp $b } keys %h;

---------------------------------------------

Thanks for the work break.  It was better for me than a cookie.   I 
checked the output of both scripts against poe.out with diff and it was OK.

teddy