Thanks Andy,
Your solution functions perfectly.
I also used this code successfully :
my $count = 0;
for (@_) {
my @words = split /\b/;
$count += scalar @words;
}
return $count;
}
http://www.gossamer-threads.com/...?post=237087#p237087
Mick
Your solution functions perfectly.
I also used this code successfully :
Code:
sub { my $count = 0;
for (@_) {
my @words = split /\b/;
$count += scalar @words;
}
return $count;
}
http://www.gossamer-threads.com/...?post=237087#p237087
Mick