perl - 如何使用 Perl 组织这些数据？

Question

我是 Perl 的新手。我有一个输入文件，例如:

a 7 5
b 8 2    
a 3 2   
b 4 1    
c 6 1

我怎样才能得到像
column_1_val , number_occurrence_column_1 , sum_of_column_2 , sum_of_column_3
例如

a 2 10 7
b 2 12 3
c 1 6 1

Answer 1

下面的程序是一个可能的解决方案。我用过 DATA文件句柄，而您可能需要打开一个外部文件并使用其中的句柄。

use strict;
use warnings;

use feature 'say';

my %data;

while (<DATA>) {
  my ($key, @vals) = split;
  $data{$key}[0]++;
  my $i;
  $data{$key}[++$i] += $_ for @vals;
}

say join ' ', $_, @{$data{$_}} for sort keys %data;

__DATA__
a 7 5
b 8 2    
a 3 2   
b 4 1    
c 6 1

输出

a 2 10 7
b 2 12 3
c 1 6 1