按列倒序排列

seesea2517

回复 37# ly5066113


    看到这么多的“插入”，那就是插入排序喽。

lbbei

偶来学习哈

qjpoo

好东西,学习一下

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my (@aData, @aOut);
   
6. while (<DATA>){
   
7.     chomp;
   
8.     my @aList = split (/\|/);
   
9.     push (@{$aData[$_]}, $aList[$_]) for 0 .. $#aList;
   
10. }
    
11. 
    
12. map {$_ = [sort {$b <=> $a} @$_]} @aData;
    
13. 
    
14. while (my ($idx, $vals) = each @aData){
    
15.     my $n = 0;
    
16.     foreach (@$vals){
    
17.         push (@{$aOut[$n++]}, $_);
    
18.     }
    
19. }
    
20. 
    
21. print join ("|", @$_), "\n" for @aOut;
    
22. 
    
23. __DATA__
    
24. 85|44|21|75
    
25. 12|52|45|78
    
26. 04|85|15|32
    

复制代码

85|85|45|78
12|52|21|75
04|44|15|32