perl 哈希按照值排序

FTDlinux

一个二级哈希，怎么用二级值作为排序依据，输出二级键列表和一级键列表

如
my %hash = (
        a =>{
                num =>100,
                ID  =>'A',
        },
        b =>{
                num=>8,
                ID=>'B',
        },
        c =>{
                num=>11,
                ID=>'C',
        },
);

1、怎么按照num的顺序输出 B C A
2、怎么按照num的顺序输出 b c a

能不能用map、grep或者用sort{$a<=>$b}+subroutine 实现

兰花仙子

for (sort {$hash{$a}->{num} <=> $hash{$b}->{num}}  keys %hash) {
    print $_,"\n";
}

see: perldoc -f sort

cdtits

1. print join "\t",
   
2.                 sort { $hash{$a}->{num} <=> $hash{$b}->{num}; } keys %hash;
   
3. print "\n";
   
4. print join "\t",
   
5.                 map  { $hash{$_}->{ID}; }
   
6.                 sort { $hash{$a}->{num} <=> $hash{$b}->{num}; } keys %hash;

复制代码

kk861123

第一题用values更方便：

1. foreach my $v (sort {$a->{num} <=> $b->{num}} values %hash) {
   
2.     print $v->{ID},"\n";
   
3. }

复制代码