perl - 如何在 Perl 中检查空标量？

Question

如何检查 perl 中的空标量？如果我没有 $list ，我不想发送电子邮件。

我可以在 send_email 例程中检查空消息还是在外面这样做？

我有一个使用 Win32::OLE 的查询.

my $servSet = $wmiObj->ExecQuery("SELECT * FROM Win32_Service WHERE DisplayName LIKE 'ServiceNameHere%'", "WQL",  wbemFlagReturnImmediately | wbemFlagForwardOnly);

我在这里遍历它并建立一个列表 $list

foreach my $serv (in $servSet) {
    next if $serv->{started}; 
    my $sname  = $serv->{name};
    my $sstate = $serv->{started};
    my $ssmode = $serv->{startmode};
    $list .= "Service: $sname  - $sstate - $ssmode\n";  
 }

我使用 $list 作为电子邮件正文发送:

sub send_email {
...
..
$smtp->datasend($list);
..
.                        
}

Answer 1

在 Perl 中，undef , "" (还有 0 和 "0" )评估为“假”。所以你可以做一个 bool 测试:

send_email() if $list;