在Perl中將哈希中的所有值相乘？

Question

我想將散列的所有值相乘而不必調用特定元素。例如。我不要想做$hash{'kv1'} * $hash{'kv2'} * $hash{'kv3'}因爲我不知道散列中元素的數量來做到這一點。

我猜測有一個簡單高效的功能來做到這一點，也許使用each什麼的，但我找不到任何示例要遵循。有任何想法嗎？

Answer 1

從1開始（因爲1乘以任何東西就是你的倍數），然後遍歷散列的值並將當前總值乘以散列值。

#!/usr/bin/env perl 

use v5.12; 
my %hash = (a => 1, b => 2, c => 3, d => 4); 
my $value = 1; 
$value = $value * $_ foreach values %hash; 
say $value; 

Answer 2

這不行嗎？

my $m = 1; 
for (values %my_hash) { 
    $m *= $_; 
} 

Answer 3

我會遍歷keys %hash這樣的：

my $prod = 1; 
$prod *= $hash{$_} for keys %hash; 

Answer 4

這就是List::Util的減少爲：

use List::Util 'reduce'; 

my %hash = (foo => 3, bar => 7, baz => 2); 

say reduce { our $a * our $b } values %hash; 

輸出：

個42