Max von Seibold schreef:
> However this only tells me if there are individual words in each line.
> Is there some way I can count there occurrences?
See `perldoc count`
#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>) {
print;
print scalar( () = /\w+/g ), "\n";
}
__DATA__
Abc, def ghi! Jklm-nop: qrst. Uvw.
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
