Как проверить наличие пустого скаляра в 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";  
 }

Я использую список $ для отправки в качестве основной части письма:

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

Answer 1

В Perl undef, "" (а также 0 и "0") оцениваются как "ложные". Таким образом, вы можете просто сделать логический тест:

send_email() if $list;

Answer 2

Я не люблю дурачиться с тем, что на самом деле в переменной. Если я хочу увидеть, находится ли что-нибудь, что-либо вообще в скаляре, я проверяю его длину:

 send_mail() if length $scalar;

Answer 3

Вы пробовали это?

 if (!($list eq ""))
     send_email(...);

или

 if ($list ne "")
     send_email(...);