hash排序问题

pony2001mx

大家好：

该脚本我认为输出结果如下，因为我想按ma, lin, liu排序的：
A:ma:1
B:lin:9
C:liu:10


但实际输出结果是：
A:ma:1
C:liu:10
B:lin:9


哪里有误？请指点迷津，非常谢谢！！

1. #!/usr/bin/perl
   
2. 
   
3. %hoh = (
   
4.         A => { ma => 1 } ,
   
5.         B => { lin => 9 } ,
   
6.         C => { liu => 10 } ,
   
7. );
   
8. 
   
9. for $i (sort { keys %{$hoh{$a}} cmp keys %{$hoh{$b}} } keys %hoh) {
   
10.         for $j (keys %{$hoh{$i}}) {
    
11.                 print $i, ":", $j, ":", $hoh{$i}{$j}, "\n";
    
12.         }
    
13. }

复制代码

pony2001mx

请高人点拨，我的hash想按ma, lin, liu排序，谢谢！

jason680

回复 2# pony2001mx

1. input data
2. procedure
3. output data
and give us an example
   

pony2001mx

jason680：您好！可能我举得脚本例子太晦涩，大家难懂，我又举了个简单的例子，请见我的帖子。谢谢！
回复 3# jason680