Jasmine
Administrator
Mar 15, 2001, 6:05 AM
Post #1 of 1
(33049 views)
|
|
How can I print out a word-frequency or line-frequ
|
Can't Post
|
|
How can I print out a word-frequency or line-frequency summary?
To do this, you have to parse out each word in the input stream. We'll pretend that by word you mean chunk of alphabetics, hyphens, or apostrophes, rather than the non-whitespace chunk idea of a word given in the previous question:
while (<>) {
while ( /(\b[^\W_\d][\w'-]+\b)/g ) { # misses "`sheep'"
$seen{$1}++;
}
}
while ( ($word, $count) = each %seen ) {
print "$count $word\n";
}
while (<>) {
$seen{$_}++;
}
while ( ($line, $count) = each %seen ) {
print "$count $line";
}
|
MAIN
SEARCH
WHO'S 
LOG 