Help for this page

Select Code to Download

Select or download this

HIT key1 so start to process
    attrib1:  base = FULL
...
HIT key9 so start to process
    attrib1:  base = FULL
ENDKEY

Select or download this

open(FH,"<$file") || die ("cannot open file");
foreach my $key (sort keys %results){
...
                $results{$keymatch}{$1} = $2;}
        }
    }