如何在Perl中检查几个变量是否为空

# 定义变量
my $var1 = "Hello";
my $var2 = "";
my $var3 = undef;

# 检查变量是否为空
if ($var1 eq "" || !defined $var1) {
    print "变量 var1 为空\n";
} else {
    print "变量 var1 不为空\n";
}

if ($var2 eq "" || !defined $var2) {
    print "变量 var2 为空\n";
} else {
    print "变量 var2 不为空\n";
}

if ($var3 eq "" || !defined $var3) {
    print "变量 var3 为空\n";
} else {
    print "变量 var3 不为空\n";
}