Help for this page

Select Code to Download


  1. or download this
    "
#!perl -i.bak
@ARGV = ($0);
...
"
# normal lines start here
# etc. etc.
  2. or download this
    #!/bin/env updater
# perl -lanwe '(...the script from before...)' inputfile
# ...
# the normal output...
# ...
  3. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
open my $pipe, "| $ENV{SHELL}";
print $pipe $script;
close $pipe;