Question

How do I check for an empty scalar in perl? If I have no $list, I do not want to send an email.

Can I check for empty message in the send_email routine or do this outside?

I have a query that uses Win32::OLE.

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

I’m looping through it here and building a list $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";  
 }

I use the $list to send as body of the email:

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

Answer 1

In Perl, undef, "" (and also 0 and "0") evaluate to “false”. So you can just do a boolean test:

send_email() if $list;