Perl - 如果数字在数组中有相同的字符串，我如何加上（计算）数字

Question

如果数组中的字符串相同，我想加上以下数字。

示例输入：

AA 1  
AA 3  
AA 2  
BB 4  
BB 6  

期望的输出：

AA 6  
BB 10

Answer 1

哈希对分组非常有用。

my %sums;

while (<>) {
   my @F = split;
   $sums{$F[0]} += $F[1];
}

print("$_ $sums{$_}\n") for sort keys %sums;