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

Question

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

Answer 1

两种方法都使用foreach，

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

}

$_ //= 0 for values %hash;

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