[Perl]对多个数组排序

523066680

抽一些旧练习发出来，消灭Perl区零发帖

1. use IO::Handle;
   
2. STDOUT->autoflush(1);
   
3. 
   
4. my @arr = (
   
5.         [16,5,3,2 ],
   
6.         [16,7,2,2,1 ],
   
7.         [16,2,2,2,1 ],
   
8.         [16,2,2,2 ],
   
9.         [16,5,2,2,1 ],
   
10.         [19,3,1,1 ],
    
11.         [2,2,2,2,1 ],
    
12.         [5,5,3,2,1 ],
    
13.     );
    
14. 
    
15. my @brr =
    
16.     reverse sort
    
17.     {
    
18.         my $i = 0;
    
19.         while ( ($a->[$i] <=> $b->[$i] ) == 0 and $#$a > $i and $#$b > $i )
    
20.         {
    
21.             $i++;
    
22.         }
    
23.         
    
24.         $a->[$i] <=> $b->[$i]
    
25.          ||
    
26.         $#$a <=> $#$b;    #如果到了最后能比较的层级仍然相同，则比较元素数量
    
27.     }
    
28.     @arr;
    
29. 
    
30. grep { print join(",", @$_),"\n" } @brr;
    

复制代码

输出：

1. 19,3,1,1
   
2. 16,7,2,2,1
   
3. 16,5,3,2
   
4. 16,5,2,2,1
   
5. 16,2,2,2,1
   
6. 16,2,2,2
   
7. 5,5,3,2,1
   
8. 2,2,2,2,1

复制代码