perl - 如何检查Perl中的几个变量是否为空

Question

我有一个 Perl 脚本，其中必须先初始化变量，然后脚本才能继续。长篇if我检查每个变量的语句是显而易见的选择。但也许有一种更优雅或更简洁的方法来检查多个变量。

编辑:
我不需要检查“已定义”，它们总是用一个空字符串定义，我需要检查所有的都是非空的。

例子:

my ($a, $b, $c) = ("", "", "");

# If-clauses for setting the variables here

if( !$a || !$b || !$c) {
  print "Init failed\n";
}

Answer 1

use List::MoreUtils 'all';
say 'Yes' if (all { defined } $var1, $var2, $var3);