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";
}