while ( <> ) {
next if /^#/;
s/left/right/g;
tr/A-Z/a-z/;
print "$ARGV:";
print;
}
|
< Use $_ in Short Code Use foreach() Loops > Table of Contents | Page 19 |
YAPC 19101,
June 2001 Perl Idioms Nathan Torkington |