Help for this page

Select Code to Download

Select or download this

sub Read_File {
    my $FILE = shift ;
...

foreach my $key (sort {$a<=>$b} keys %hBase) {  print "$key -> $hBase{
+$key}\n"; }
foreach my $key (sort {$a<=>$b} keys %hPost) {  print "$key -> $hPost{
+$key}\n"; }

Select or download this

NR^\;^\INVOICE_TXT -> CHARGE
1^\;^\Access Charge -> .083
1^\;^\Service Charge -> .042
2^\;^\Access Charge -> .083
2^\;^\Service Charge -> 0