perl多重排序

塞图宝

如何利用sort进行多重排序呢？
比如输入文本如下
1 2 3
1 2 4
2 1 3
2 2 3
我希望先按照第一列的值得大小进行排序，如果相同，再按照第二列，以此类推。

如何写程序呢？谢谢诸位大侠！

ly5066113

回复 1# 塞图宝


用 shell 吧
sort file
如果要数值排序
sort -n file

yestreenstars

1. sort -k1n -k2n -k3n

复制代码

huang6894

回复 1# 塞图宝

1. 
   
2. #! /usr/bin/perl -w
   
3. # File Name: hh.pl
   
4. 
   
5. my @line;
   
6. while(<DATA>){
   
7.         chomp;
   
8.         push @line,[split];
   
9. }
   
10. foreach(sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] or  $a->[2] <=> $b->[2]  } @line){
    
11.         print join("\t",@$_)."\n";
    
12. }
    
13. __DATA__
    
14. 1 2 3
    
15. 1 2 4
    
16. 2 1 3
    
17. 2 2 3
    
18. 1 3 4
    
19. 2 4 3
    
20. 2 1 2
    
21. 1 1 1
    

复制代码

塞图宝

回复 4# huang6894


    多谢了，想起来了用or！

felix0608

可以更简单呢

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. my @arr=map{$_->[0]}
   
4.                 sort{$a->[1] <=>  $b->[1] || $a->[2] <=>  $b->[2] || $a->[3] <=>  $b->[3]}
   
5.                         map{chomp;[$_,split]}<DATA>;
   
6. print $_,"\n" for@arr;
   
7. __DATA__
   
8. 1 2 3
   
9. 1 2 4
   
10. 2 1 3
    
11. 2 2 3
    
12. 1 3 4
    
13. 2 4 3
    
14. 2 1 2
    
15. 1 1 1

复制代码

回复 5# 塞图宝