Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
Dates    : %d
Records  : %d
Run Time : %d s",0+keys %total, 0+keys %data, $records, $dur;
  2. or download this
    open OUT,'>','products.txt' or die "$!";
my @d = (0,31,28,31,30,31,30,31,31,30,31,30,31);
...
  }
}
close OUT;