求教一个perl数据结构排序的问题

Tonyish

现创建了一个指向数组的数组的引用
$ref_to_A = [
[ 2,1 ],
[ 2,2 ],
[ 2,3 ],
[ 1,3 ],
[ 1,2 ],
[ 1,1 ],
[ 3,2 ],
[ 3,1 ],
[ 3,3 ],
];
要怎么实现成下面这样的排序呢？
$ref_to_A = [
[ 1,3 ],
[ 2,3 ],
[ 3,3 ],
[ 1,2 ],
[ 2,2 ],
[ 3,2 ],
[ 1,1 ],
[ 2,1 ],
[ 3,1 ],
];

xiumu2280

1. @$ref_to_A = sort {$b->[1] <=> $a->[1] or $a->[0] <=> $b->[0]}@$ref_to_A;

复制代码

Tonyish

怎么用啊，可以写段具体的代码吗？
回复 2# xiumu2280


   

xiumu2280

1. my $ref_to_A = [
   
2. [ 2,1 ],
   
3. [ 2,2 ],
   
4. [ 2,3 ],
   
5. [ 1,3 ],
   
6. [ 1,2 ],
   
7. [ 1,1 ],
   
8. [ 3,2 ],
   
9. [ 3,1 ],
   
10. [ 3,3 ],
    
11. ];
    
12. @$ref_to_A = sort {$b->[1] <=> $a->[1] or $a->[0] <=> $b->[0]}@$ref_to_A;
    
13. print "@$_\n" for @$ref_to_A;

复制代码

就是这样sort啊····你可以看看sort的perldoc

Tonyish

@$ref_to_A = sort {$b->[1] <=> $a->[1] or $a->[0] <=> $b->[0]}@$ref_to_A;非常感谢，这句该怎么理解呢？
回复 4# xiumu2280


   

xiumu2280

$b->[1] <=> $a->[1] 先按二维数组里的[1]按数字顺序反向排序。再按$a->[0] <=> $b->[0]中[0]数字顺序正向排序回复 5# Tonyish


   

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my $ref_to_A = [
   
6. [ 2,1 ],
   
7. [ 2,2 ],
   
8. [ 2,3 ],
   
9. [ 1,3 ],
   
10. [ 1,2 ],
    
11. [ 1,1 ],
    
12. [ 3,2 ],
    
13. [ 3,1 ],
    
14. [ 3,3 ],
    
15. ];
    
16. 
    
17. my @new1 =  map{ [ $_->[0], $_->[1] ] }
    
18.            sort{ $a->[0] <=> $b->[0] }
    
19.            map{ [ $_->[0], $_->[1] ] } @$ref_to_A;
    
20. 
    
21. my @new2 =  map{ [ $_->[0], $_->[1] ] }
    
22.            sort{ $b->[1] <=> $a->[1] }
    
23.            map{ [ $_->[0], $_->[1] ] } @new1;
    
24. 
    
25. print map{ "$_->[0],$_->[1]\n" } @new2;

复制代码

pitonas

好厉害的小伙伴们, 这个必须赞一个

回复 4# xiumu2280