Front page | perl.perl5.porters |
Postings from July 2008
Glenn Linderman <perl@NevCal.com> writes:
> Nary a "while(<>)" in sight in that code snippet.
Here's "perl -MO=Deparse -lan" of that. Note the second part:
BEGIN { for (@ARGV) {
if (/\.gz$/) {
$_ = "gzip -dc $_ |";
}
}
}
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
chomp $_;
our(@F) = split(" ", $_, 0);
sub BEGIN {
foreach $_ (@ARGV) {
if (/\.gz$/) {
$_ = "gzip -dc $_ |";
}
}
}
;
}
Thread Next