Help for this page

Select Code to Download


  1. or download this
        #!/usr/bin/perl -pi.orig
    s/foo/bar/;
  2. or download this
        #!/usr/bin/perl
    $extension = '.orig';
    LINE: while (<>) {
...
    print;    # this prints to original filename
    }
    select(STDOUT);
  3. or download this
    #!/usr/bin/perl

...
$cmd="perl -pi -e s\'\/^\\s+\/\/'g $file";
print "$cmd\n";
system($cmd);
  4. or download this
    #!/usr/bin/perl

...
$cmd="perl -pi -e s\'\/^\\s+\/\/'g $file";
print "$cmd\n";
system($cmd);