数组排序

轻易南村

bk      14
bk   9
bk    12
bk   7
bq    9
bk    14
du   7
du    7
dt    10
du   14
bk   10
bq   8
bk    9
bq    11
cn   7
bq    9对这样的数据按数字进行排序怎么排啊

午夜凋零

轻易南村 发表于 2012-07-16 16:06
bk      14
bk   9
bk    12

1. my ( @head, @end );
   
2. while ( <DATA> ) {
   
3.     my ( $a, $b ) = split /\s+/;
   
4.     push @head, $a;
   
5.     push @end, $b;
   
6. }
   
7. my @idx = sort { $end[$a]<=>$end[$b] } 0..$#end;
   
8. print "@head[@idx]\n";
   
9. print "@end[@idx]\n";
   
10. __DATA__
    
11. bk  14
    
12. bk  9
    
13. bk  12
    
14. bk  7
    
15. bq  9
    
16. bk  14
    
17. du  7
    
18. du  7
    
19. dt  10
    
20. du  14
    
21. bk  10
    
22. bq  8
    
23. bk  9
    
24. bq  11
    
25. cn  7
    
26. bq  9

复制代码

kk861123

1. print "$_\n" for map { $_->[0]               }
   
2.                 sort { $a->[1] <=> $b->[1]   }
   
3.                  map { chomp;[$_,(split)[1]] } <DATA>;

复制代码

轻易南村

thanks 回复 2# 午夜凋零


   

轻易南村

thank you回复 3# kk861123


   

轻易南村

请问一下 如果将排完序的数据在赋值给一个数组怎么做啊回复 3# kk861123


   

cdtits

回复 6# 轻易南村

1. @data = sort { $a->[1] <=> $b->[1] or $a->[0] cmp $b->[0] }
   
2.         map  { @tmp = split; [@tmp]; } <DATA>;
   
3. print join("\t", @{$_}), "\n" for (@data);

复制代码

kk861123

回复 6# 轻易南村

1. @data = map { $_->[0]               }
   
2.        sort { $a->[1] <=> $b->[1]   }
   
3.         map { chomp;[$_,(split)[1]] } <DATA>;

复制代码

不清楚你到底要数据后想如何处理，但是我猜楼上的代码应该能更好的满足你的要求
   

轻易南村

谢谢你回复 7# cdtits


   

轻易南村

谢谢你回复 8# kk861123