Help for this page

Select Code to Download


  1. or download this
    open (INFILE, "$ARGV[1]") or die "$ARGV[1] cannot be openned : $!";
while ($source_file =~ /(\d)\s+(\d)\s+(\d)\s+(\w+)/)
  2. or download this
    if ($ARGV[0] eq "-a")
  3. or download this
    use strict;
use warnings;
use diagnostics;