求助：perl实现数据汇总

zhangmaocun

文件的内容如下：
a,b,c,d,1,2
b,c,d,2,2,3
a,b,c,d,1,4
前四个都相同的话，第五和第六个分别求和，得到的结果如下：
a,b,c,d,2,6
b,c,d,2,2,3

刚学perl，自己写了个：
#!/usr/bin/perl -w

my $file="/opt/a.txt";
my $line;
my %hash;
open(IN,"<$file");
while($line=<IN>){
chomp($line);
my @rowline = split(/,/, $line);
$a=$rowline[0].",".$rowline[1].",".$rowline[2].",".$rowline[3];
$b=$rowline[4].",".$rowline[5];
if ($hash{$a})
{
my $temp=$hash{$a};
my @temp=split(/,/, $temp);
my $temp1=$temp[0]+$rowline[4];
my $temp2=$temp[1]+$rowline[5];
$hash{$a}=$temp1.",".$temp2;
}
else
{
$hash{$a}=$b;
}
}
close IN;
open (OUT,">b.txt");
while(($key, $value) = each %hash)
{
    print "$key $value\n";
print OUT $key.",".$value."\n";
}
close OUT;
虽然能实现，感觉效率低吧。大数据的话应该慢吧，求个高效率的。

rubyish

写了个：

1. #!/usr/bin/perl
   
2. my %h;
   
3. while (<DATA>) {
   
4.     /(.*),(\d+),(\d+)$/;
   
5.     if ( $h{$1} ) {
   
6.         $h{$1}[0] += $2;
   
7.         $h{$1}[1] += $3;
   
8.     }
   
9.     else { $h{$1} = [ $2, $3 ] }
   
10. }
    
11. for ( keys %h ) {
    
12.     print join( ',', $_, @{ $h{$_} } ), $/;
    
13. }
    
14. 
    
15. __DATA__
    
16. a,b,c,d,1,2
    
17. b,c,d,2,2,3
    
18. a,b,c,d,1,4

复制代码

mcshell

纯属娱乐
还是楼上的好用

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. my %hash;
   
6. my ($str1,$num1,$num2);
   
7. my ($sum1,$sum2);
   
8. my @line = <DATA>;
   
9. while(<@line>){
   
10.     /((?:\w,){4})(\d+),(\d+)(?{($str1,$num1,$num2)=($1,$2,$3)})/;
    
11.   while(<@line>){
    
12.     if(/$str1(\d+),(\d+)/){
    
13.         $sum1+=$1;
    
14.         $sum2+=$2;
    
15.     }   
    
16.   }
    
17.   $hash{$1}="$sum1,$sum2";
    
18.   undef $sum1;
    
19.   undef $sum2;
    
20. }
    
21. print "$_$hash{$_}\n" for sort keys %hash;
    
22. __DATA__
    
23. a,b,c,d,1,2
    
24. b,c,d,2,2,3
    
25. a,b,c,d,1,4

复制代码