note
JSchmitz
<code>
#!/usr/bin/perl
$/ = "";
$* = 1;
while (<>) {
#s/-\n//g;
tr/A-Z/a-z/;
@words = split(/\W*\s+\W*/, $_); # split into words
foreach $word (@words) {
$wordcount{$word}++; # count the words
}
}
foreach $word (sort keys(%wordcount)) {
printf "%8d\t\t%s\n", $wordcount{$word}, $word;
}</code>
<br>
Hope that helps<br>
<br>
Jeffery
822189
822189