如何对引用数组里的数值进行排序，谢谢

wrongdna

用Dumper打印出来的一个哈希的结构的一部分，现在想把这个哈希里的数组引用里的值按小到大排序，
$VAR14 = [
           '3314        3311    4300    3401    2480',
           '246          77      221     206     281',
           '55             4       26      28      54',
           '971        458     785     845     745'
         ];
期望得到如下结果
$VAR14 = [
            '55             4       26      28      54',        
           '246          77      221     206     281',
           '971        458     785     845     745'
  　　　'3314        3311    4300    3401    2480',
         ];
即数组里的五个元素的总和按从小到大排序，请问可以如何实现，如用sort函数应该是如何用呢？谢谢！

兰花仙子

1. $ cat t.pl
   
2. use strict;
   
3. use Data::Dumper;
   
4. my $VAR14 = [
   
5.            '3314        3311    4300    3401    2480',
   
6.            '246          77      221     206     281',
   
7.            '55             4       26      28      54',
   
8.            '971        458     785     845     745'
   
9.          ];
   
10. 
    
11. my @new = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { my $i;$i+=$_ for (split); [$_, $i] } @$VAR14;
    
12. 
    
13. print Dumper \@new;
    
14. 
    
15. $ perl t.pl
    
16. $VAR1 = [
    
17.           '55             4       26      28      54',
    
18.           '246          77      221     206     281',
    
19.           '971        458     785     845     745',
    
20.           '3314        3311    4300    3401    2480'
    
21.         ];

复制代码

wrongdna

非常感谢！