perl中按照哈希值排序

bingxue0222

有一个二级哈希：
my %hash=(
              A=>{num=1,
                      impact=>'high'
                    },
              B=>{num=2,
                      impact=>'low'
                    },

              );
如何按照num的个数有高到低排序，最终打印出各个key值对应的num值和impact的值。
如：
B----2---low
A----1---high

dqw233

看下面那个

dqw233

say $_->{key}, ' ',$_->{num} , ' ', $_->{impact} for sort {$b->{num} <=> $a->{num}} map {{key => $_, %{$hash{$_}}}} keys %hash;