Help for this page

Select Code to Download


  1. or download this
    @a = ("one","two","three");
@a =~ s/[oe]/_/g;
print join("\n",@a),"\n";
  2. or download this
    Can't modify array deref in substitution at t.pl line 2, near "s/[oe]/
+_/g;"
  3. or download this
    open(DATA,"file.inf") || die "can't open: $!";
local  $/;      # make a local copy of $/ so we don't trample other fi
+lehanles
undef $/;       # undef it
$file = <DATA>; # so we can slurp up the whole file in one bang
$file =~ s/Name/Fullname/g;