排序问题

我收点倦

现有一文件，
WL51        ARS-BFGL-BAC-10172        G        G
ABO_1444 ARS-BFGL-BAC-10172  C C
WL51        ARS-BFGL-BAC-1020        A        G
ABO_1444 ARS-BFGL-BAC-1020         G G
WL51        ARS-BFGL-BAC-10245        G        G
ABO_1444 ARS-BFGL-BAC-10245  A T
WL51        ARS-BFGL-BAC-10345        A        A
ABO_1444 ARS-BFGL-BAC-10345  A A
ABO_1444 ARS-BFGL-BAC-10345  A G
WL51        ARS-BFGL-BAC-10960        G        G
ABO_1444 ARS-BFGL-BAC-10960 A C
WL51        ARS-BFGL-BAC-10972        C        G
ABO_1444 ARS-BFGL-BAC-10972 A A
想按第一列进行排序，不知道有没有什么简单的语句

Cu_fans

1. my @sorted = map         {$_->[0]}
   
2.                      sort         {$a->[1] cmp $b->[1]}
   
3.                      map        {[$_, split /\s+/ ]} <DATA>;
   
4. 
   
5. print "@sorted\n";
   
6. 
   
7. __DATA__
   
8. WL51        ARS-BFGL-BAC-10172        G        G
   
9. ABO_1444 ARS-BFGL-BAC-10172  C C
   
10. WL51        ARS-BFGL-BAC-1020        A        G
    
11. ABO_1444 ARS-BFGL-BAC-1020         G G
    
12. WL51        ARS-BFGL-BAC-10245        G        G
    
13. ABO_1444 ARS-BFGL-BAC-10245  A T
    
14. WL51        ARS-BFGL-BAC-10345        A        A
    
15. ABO_1444 ARS-BFGL-BAC-10345  A A
    
16. ABO_1444 ARS-BFGL-BAC-10345  A G
    
17. WL51        ARS-BFGL-BAC-10960        G        G
    
18. ABO_1444 ARS-BFGL-BAC-10960 A C
    
19. WL51        ARS-BFGL-BAC-10972        C        G
    
20. ABO_1444 ARS-BFGL-BAC-10972 A A
    

复制代码

qq27898

my @sorted = map {$_->[0]}

sort {$a->[1] cmp $b->[1]}

map {[$_, split /\s+/ ]} <DATA>;

好高深的样子，学习了

yakczh_cu

1. 
   
2. %hash=();
   
3. $index=0;
   
4. while(<DATA>){
   
5.     @lines=split /\s+/;
   
6.     $hash{$lines[0].++$index}=$_;
   
7. }
   
8. 
   
9. for  ( sort { $a cmp $b } keys %hash){
   
10.     print $hash{$_};
    
11. }
    
12. __DATA__
    
13. WL51        ARS-BFGL-BAC-10172        G        G
    
14. ABO_1444 ARS-BFGL-BAC-10172  C C
    
15. WL51        ARS-BFGL-BAC-1020        A        G
    
16. ABO_1444 ARS-BFGL-BAC-1020         G G
    
17. WL51        ARS-BFGL-BAC-10245        G        G
    
18. ABO_1444 ARS-BFGL-BAC-10245  A T
    
19. WL51        ARS-BFGL-BAC-10345        A        A
    
20. ABO_1444 ARS-BFGL-BAC-10345  A A
    
21. ABO_1444 ARS-BFGL-BAC-10345  A G
    
22. WL51        ARS-BFGL-BAC-10960        G        G
    
23. ABO_1444 ARS-BFGL-BAC-10960 A C
    
24. WL51        ARS-BFGL-BAC-10972        C        G
    
25. ABO_1444 ARS-BFGL-BAC-10972 A A
    
26. 
    

复制代码