数组组合---合并神马

ywwow

for倒置挺好看的啊，多像英语啊……

兰花仙子

for倒置挺好看的啊，多像英语啊……
ywwow 发表于 2011-09-09 14:56

    这个倒置都看不惯的，不适合搞perl。

thomaslyang

这个倒置都看不惯的，不适合搞perl。
兰花仙子 发表于 2011-09-09 15:00

    走自己的路，让别人说去吧

forward_ding

我觉得倒置很正常啊，学英语的都知道，不适应倒置的只能说明语感太差（英语很讲语感）。
不想找喷，各抒己见，呵呵。

antonym55

来晚了，楼主问的什么的没看到，还好有快照，还原一下问题

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. ######################################################
   
5. #想请问下. 如果有个数组
   
6. #[[A,1,2,3],[B,4,5],[A,6,7],[B],[C,8]...]
   
7. #如果实现合并成如下呢(以子数组的第一个元素来合并)
   
8. #[[A,1,2,3,6,7],[B,4,5],[C,8]...]
   
9. ######################################################
   
10. 
    
11.     use warnings;
    
12.     use strict;
    
13. 
    
14.     use Data::Dumper;
    
15. 
    
16. 
    
17.     my $ref_arr = [['A',1,2,3,4], ['B', 34,7,98], ['A', 6,7,8], ['C', 56, 1], ['B', 45,7,8], ['D', 69, 890, 11]];
    
18. 
    
19.     my %mergehash = ();
    
20.     my $mer_arr = [];
    
21.     for my $item (@$ref_arr)
    
22.     {
    
23.         if( !exists $mergehash{$item->[0]})
    
24.         {
    
25.             $mergehash{$item->[0]} = $item;
    
26.         }
    
27.         else
    
28.         {
    
29.             my ($key) = shift @$item;
    
30.             push @{$mergehash{$key}}, @$item;
    
31.         }   
    
32.     }
    
33. 
    
34.     for my $key  (sort {$a cmp $b}(keys %mergehash))
    
35.     {   
    
36.         push @$mer_arr, $mergehash{$key};
    
37.     }
    
38. 
    
39.     print Dumper(%mergehash);
    
40.     print "Got array ref : \n";
    
41.     print Dumper($mer_arr);
    

复制代码