while ($line = <>) {
next if $line =~ /^#/;
$line =~ s/left/right/g;
$line =~ tr/A-Z/a-z/;
print "$ARGV:";
print $line;
}
|
< Oh the horror Versus > Table of Contents | Page 18 |
YAPC 19101,
June 2001 Perl Idioms Nathan Torkington |