Help for this page

Select Code to Download


  1. or download this
    while (my $line = <INPUT>) {
       my item = "UNKNOWN";
    ...
    
       if ($line =~ /Count:\s+(\d+)/) { $checks{$item}{$stage} = $1; }
    }