Help for this page

Select Code to Download


  1. or download this
    %rec_counts={};
  2. or download this
    while (defined($line = <F>))
{
    $rec_type = substr($line, 19, 2);
    $rec_counts{$rec_type} += 1;
}
  3. or download this
    foreach $key (sort keys(%rec_counts))
{
    print "Record count of $key is $rec_counts{$key}\n";
}
  4. or download this
    Record count of 00 is 1
Record count of HASH(0x4000473c) is
Record count of T  is 315