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

Question

我想將哈希的所有值相乘在一起，而不必調用特定的元素。 例如，我不想做$hash{'kv1'} * $hash{'kv2'} * $hash{'kv3'}因為我不知道在哈希做這個元素的數量。

我猜想有一個簡單有效的函數可以執行此操作，也許使用each函數或某些函數，但是我找不到要遵循的示例。 有任何想法嗎？

Answer 1

從1開始（因為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

這就是List :: Util的reduce的目的是：

use List::Util 'reduce';

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

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

輸出：

42

Answer 3

我會像這樣遍歷keys %hash ：

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

Answer 4

這不會嗎？

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