Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
use diagnostics;
  2. or download this
    my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
close ( $input );
  3. or download this
    my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
while($input>) {
}
close ( $input );
  4. or download this
    my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
...
  }
}
close ( $input );