关于一个累加的问题

nanshanjin

这里有一个文件，格式如下：
01   2
01   4
...   ...
02  1
02  3
...  ...
03 6
... ...
把分别把01,02,03.。。。对应的那列数字累加，输出为
01  sum
02  sum
03  sum
...  ...
怎么实现？

substr函数

1. #!/usr/bin/perl
   
2. 
   
3. my $col1;
   
4. my $sum;
   
5. while (<DATA>) {
   
6.     if (/^\./) {
   
7.         print "$col1\t$sum\n";
   
8.         $sum = 0;
   
9.     }
   
10.     else {
    
11.         my @line = split;
    
12.         $col1 = $line[0];
    
13.         $sum += $line[1];
    
14.     }
    
15. }
    
16. 
    
17. __DATA__
    
18. 01   2
    
19. 01   4
    
20. ...   ...
    
21. 02  1
    
22. 02  3
    
23. ...  ...
    
24. 03 6
    
25. ... ...
    

复制代码

MMMIX

回复 2# substr函数


    我十分怀疑 ... ... 是输入数据的一部分。

substr函数

回复 3# MMMIX


1楼发的
格式如下

1. 01   2
   
2. 01   4
   
3. ...   ...
   
4. 02  1
   
5. 02  3
   
6. ...  ...
   
7. 03 6
   
8. ... ...

复制代码

MMMIX

回复 4# substr函数


    那你应该在最后再输出一行 ... ... 呀

substr函数

回复 5# MMMIX

谢谢大神指点！

1. #!/usr/bin/perl
   
2. 
   
3. my $col1;
   
4. my $sum;
   
5. while (<DATA>) {
   
6.     if (/^\./) {
   
7.         print "$col1\t$sum\n";
   
8.         $sum = 0;
   
9.     }
   
10.     else {
    
11.         my @line = split;
    
12.         $col1 = $line[0];
    
13.         $sum += $line[1];
    
14.     }
    
15. }
    
16. print "...   ...\n";
    
17. 
    
18. __DATA__
    
19. 01   2
    
20. 01   4
    
21. ...   ...
    
22. 02  1
    
23. 02  3
    
24. ...  ...
    
25. 03 6
    
26. ... ...
    

复制代码

nanshanjin

... ...是省略号
   

b114213903

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my $sum={};
   
5. while(<DATA>){
   
6.         chomp;
   
7.         my ($key,$value)=split;
   
8.         $sum->{$key}+=$value;
   
9. }
   
10. 
    
11. foreach my $key (sort {$a<=>$b} keys %{$sum}){
    
12.         print "$key\t$sum->{$key}\n";
    
13. }

复制代码

rubyish

perl abc.pl data > save

1. #!/usr/bin/perl
   
2. 
   
3. my ( $K, $V ) = '';
   
4. while (<DATA>) {
   
5.     my ( $k, $v ) = split;
   
6.     if ( $K ne $k ) {
   
7.         print $K, "\t", $V, $/ if $K;
   
8.         ( $K, $V ) = ( $k, 0 );
   
9.     }
   
10.     $V += $v;
    
11. }
    
12. print $K, "\t", $V, $/;
    

复制代码

nanshanjin

$sum->{$key}是什么意思？