Help for this page

Select Code to Download


  1. or download this
    die 'insufficient arguments' unless @ARGV == 1;
open(IN, $ARGV[0]) or die "unable to open '$ARGV[0]'";
...
    print $line;
}
close IN;
  2. or download this
    $ perl test.pl test.pl
   1: die 'insufficient arguments' unless @ARGV == 1;
...
   7: }
   8: close IN;
$
  3. or download this
    $ perl test.pl test.pl
   1: use strict;
...
   8: }
   9: close IN;
$