for my $key (keys %hash) { $hash{$key} //= 0; } $_ //= 0 for values %hash;
// =运算符测试变量是否未定义,并在其定义时赋值.
