Help for this page

Select Code to Download


  1. or download this
    my %hash = ();
$hash{$recNo} {$i} {'first'} = $currS;
$hash{$recNo} {$i} {'last'} = $lastS;
$hash{$recNo} {$i} {'min'} = $minA;
$hash{$recNo} {$i} {'max'} = $minB;
  2. or download this
    my $rHash = \%hash;
for my $k1 = (sort keys %$rHash) #outer key, this works
...
    print $k1 $k2;
  }
}
  3. or download this
    for my $k2 (sort keys %{$rHash->{$k1}})