perl - 如何检查Perl中的值是否为undef？

最好通过一个例子问：

my $var1=1;
my $var2;
my $var3=3;

# say "at least one undef" if at least one of $var1, $var2, $var3 is undef

显然，我可以显式循环并执行该操作，但是我一直喜欢找到一种可以达到相同结果的衬板。

最佳答案

if (grep { !defined } $var1, $var2, $var3) {
  say 'at least one undef'
}

一支班轮

say 'at least one undef' if grep { !defined } $var1, $var2, $var3;

关于perl - 如何检查Perl中的值是否为undef？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/3767202/