Joshua Colson schreef:
> $wc{$1}++ while m/\b(\w+)\b/g;
Alternative, ignoring case:
$wc{lc $1}++ while m/(\w+)/g;
--
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>
