Help for this page

Select Code to Download


  1. or download this
    my @orig = ($/, $\);
undef($/);
undef($\);
open (JE, $file) || die "Cannot open $file";
(my $j = <JE>) =~ s/orig/new/g;
  2. or download this
    close (JE);
open (JE, "> $file);
print JE $j;
close (JE);
($/, $\) = @orig;
  3. or download this
    seek (JE, 0, 0);
print JE $j;
close (JE);
($/, $\) = @orig;