perl 用foreach 求解遍历HASH解决办法

perl 用foreach 求解遍历HASH
 刚自学perl一个小时


 求高手指点  一个HASH如下  "小明"=>(语文=>50   数学=>60)
                           "小刚"=>(语文=>80   数学=>90)
  将HASH 遍历出来

     
     
[解决办法]

%hash = ("小明"=>{'语文'=>50, '数学'=>60},
        "小刚"=>{'语文'=>80, '数学'=>90});

while (($k, $v) = each %hash) {
    print "$k =>\n";
    while (($x, $y) = each %$v) {
        print "\t$x => $y\n";
    }
}

my %hash;

%hash = ("小明"=>{'语文'=>50, '数学'=>60},
        "小刚"=>{'语文'=>80, '数学'=>90});

foreach my $key ( keys %hash )
{
print "$key:\n";
my $subhash = $hash{$key};
foreach my $subkey ( keys %$subhash )
{
print "\t$subkey => $$subhash{$subkey}\n";
}
}