如何通過唯一鍵對數組值進行求和？

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] =>數組（[產品1] => 7） [1] =>數組（[產品1 ] => 2） [2] => Array（[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; 
} 

Answer 2

new_array; 
foreach p in array: 
    if(new_array.contains(p.key)) 
    new_array[p.key] += p.value; 
    else 
    new_array[p.key] = p.value; 

new_array將包含款項

Answer 3

在Perl：

my %hash =(); 
$hash{'product1_quantity'} += 5; 
$hash{'product1_quantity'} += 1; 
$hash{'product2_quantity'} += 3; 
$hash{'product2_quantity'} += 7; 
$hash{'product3_quantity'} += 2; 

say join ",\n", map { "$_ - $hash{$_}" } keys %hash; 

輸出是：

product2_quantity - 10, 
product3_quantity - 2, 
product1_quantity - 6 

的順序是不同的，但你可以強制它是「在訂單「加入排序：

say join ",\n", map { "$_ - $hash{$_}" } sort {$a cmp $b} keys %hash; 

Answer 4

你想要類似於：

use Data::Dumper; 
    my @input = (product1_quantity => 5, 
       product1_quantity => 1, 
       product2_quantity => 3, 
       product2_quantity => 7, 
       product3_quantity => 2, 
      ); 
    my %output; 

    while (my $product = shift(@input) and my $quantity = shift(@input)) { 
    $output{$product} += $quantity; 
    } 

    print Dumper %output; 

該吐出：

$VAR1 = 'product2_quantity'; 
$VAR2 = 10; 
$VAR3 = 'product3_quantity'; 
$VAR4 = 2; 
$VAR5 = 'product1_quantity'; 
$VAR6 = 6; 

雖然被警告 - 如果你已經在你的數量有任何undefs值這是怎麼回事努力打破。您需要有一個偶數長度的產品/數量數量對數組。