perl - 将散列中的值相加 (Perl)

Question

我想将我创建的哈希值相加。

my $value_count;
foreach my $key (@keys) {
    $value_count = sum($words{key}, $value_count);
}

但是当我运行这个时我得到

Undefined subroutine &main::sum called at C:/Users/Clayton/workspace/main/Main.pl line 54, <$filehandle1> line 174.

我不太确定我哪里出了问题。我是 Perl 新手。

编辑:我尝试仅使用 + 运算符，但收到错误

Use of uninitialized value in addition (+) at C:/Users/Clayton/workspace/main/Main.pl line 54, <$filehandle1> line 174.

我的哈希值差不多是这样的 核心值(value) 猫 2 狗 4 老鼠1

所以我尝试将所有值相加，以便取平均值。

编辑 2: 实际的修复位于我需要使 $value_count = 0 的注释中。这解决了所有问题。谢谢你们。我认为这是一个需要解决的重要问题，并且我认为它对其他人可能有用，所以我将离开它。

Answer 1

要使用sum函数，您需要List::Util包裹。但在本例中不需要这样做，因为您可以使用 + 运算符:

$value_count = $value_count + $words{$key};
# or $value_count += $words{$key};

事实上，您可以使用 sum 来避免循环。这是您应该使用的解决方案:

use List::Util 'sum';
my $value_count = sum values %words;

values 函数以列表形式返回哈希值，并 sum 对该列表求和。如果您不想对所有键求和，请使用哈希切片:

use List::Util 'sum';
my $value_count = sum @words{@keys};