Help for this page

Select Code to Download


  1. or download this
    open(my $in_fh = IO::File->new, "<", $infile) 
or die "Can't open $infile: $!.\n";
...
foreach my $line (@statement) {
..
}
  2. or download this
    my %data;
$/ = "`\n";
foreach my $line (<DATA>) {
..
}
  3. or download this
    Unknown data 020000000123
Unknown data 500
...
                     }
                   ]
        };