perl中二维哈希的使用

使用
$hash{$key1}{$key2} = $value;


遍历（注意加粗与加下划线的语句）
foreach my $key1 (keys %hash)
{   
    my $hash2 = $hash{$key1};
    foreach my $key2 (sort{$hash2-> {$b}<=>$hash2-> {$a}} keys %$hash2 )
    {
        print $key1."/t".$key2."/t".$hash2-> {$key2}."/n";
    }
}

对比单维哈希
foreach my $key (sort{$hash {$b}<=>$hash {$a}} keys %hash)
{
    print $key."/t".$hash {$key}."/n";
}