Corrected header line:
Newsgroups: perl.beginners,perl.beginners
Chas Owens wrote:
> In all of the corrections I totally missed that I had left caps-lock
> on after the LOOP tag. Sigh, I obviously need more caffeine. I also
> could not remember if the print was in a continue block or not.
Or use -MO=Deparse next time:
$ perl -MO=Deparse -ple 's|(\d)|length(9 x $1)|eg;'
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
chomp $_;
s/(\d)/length 9 x $1;/eg;
}
continue {
print $_;
}
-e syntax OK
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
