perl - 如何按唯一键对数组值求和？

Question

例如

array (
product1_quantity => 5,
product1_quantity => 1,
product2_quantity => 3,
product2_quantity => 7,
product3_quantity => 2,
)

结果:

product1_quantity - 6, 
product2_quantity - 10, 
product3_quantity - 2

谢谢!

对不起大家

愚蠢的例子，而不是这真的

数组 ( [0] => 数组 ( [product1] => 7 )
[1] => 数组 ( [product1] => 2 )
[2] => 数组 ( [product2] => 3 )
)

?

Answer 1

一次拉出两个项目，然后添加到哈希中。

my @array = (
        product1_quantity => 5,
        product1_quantity => 1,
        product2_quantity => 3,
        product2_quantity => 7,
        product3_quantity => 2,
);
my %sums;
while (@array and my ($k,$v) = (shift(@array),shift(@array)) ) {
        $sums{$k} += $v;
}