如何在Perl中检查值是否为undef？

Question

最好通过一个例子问:

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

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

显然我可以显式循环并执行此操作,但我总是希望找到一个可以实现相同结果的衬垫.

Answer 1

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

一个班轮

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