Help for this page

Select Code to Download


  1. or download this
    my $idx = substr $Fld57, 3, 5;
$CNT{$idx}{$Fld1}{$Fld15}++;
$COST{$idx}{$Fld1}{$Fld15} += $Fld14;
  2. or download this
    my $idx = substr $Fld57, 3, 5;
$CNT{$idx . $Fld1 . $Fld15}++;
$COST{$idx . $Fld1 . $Fld15} += $Fld14;
  3. or download this
    use strict;
use warnings;