perl - 为未定义的哈希值设置默认值

Question

我有一个哈希值，它的值主要是整数，但有些是未定义的。我想将所有这些未定义的值设置为零，或者使用for循环，或者最好使用更优雅的方法。有人可以提出解决方案吗？

Answer 1

两种方法都使用foreach，

for my $key (keys %hash) {
  $hash{$key} //= 0;

}

$_ //= 0 for values %hash;

//=运算符测试变量是否未定义，并在未定义时分配新值。