用Perl将散列中的所有值相乘?

从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;

这就是 List::Util 的 减少 用于:

use List::Util 'reduce';

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

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

输出:

42

我会反复 keys %hash 像这样:

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

这样不行吗?

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