Re: Count number of words on a web page?

[JSchmitz]

#!/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;
}

Hope that helps

Jeffery

[cdarke]

Use word boundaries (\b).

$_ ='The,quick,brown;foxy.  Does a lot,of:jumping!';

my @words = split(/\W*\s+\W*/, $_); # split into words

print 'Number of words: '.@words."\n";

gives 4 words. However

my @words = split(/\b\W*/, $_); # split into words

gives 9 words.

[jdlev]

Thanks!