如果文件扩展名不匹配，则发送邮件 perl

Question

当目录中有扩展名不是.xlsx 的文件时，我想发送电子邮件。

当目录中没有文件时，下面的脚本会发送一封电子邮件。我需要对其进行更改，以便它找到具有无法识别的文件扩展名的文件（不是.xlsx）。

my @files = sort( grep { -f "$cur_wrk_dir/$_" && /\.xlsx$/ }  readdir D); #read files    
my $filecount = scalar(@files);
if ($filecount < 1);
{  
    print ("No  xlsx file found  $hvr_agent_arg.\n");
    mailfunctional  ("Geen $program_agent_arg no xlsx file found in $source_dir"  ,"$env2 no file for $program_channelname", $email_to2  , $email_from);  
}

Answer 1

my @files = readdir $dh;

my @bad = grep { !/\.xlsx\z/ } @files;
if ( @bad ) {
   ...
}

如果你不需要坏文件列表，

my @files = readdir $dh;

if ( grep { !/\.xlsx\z/ } @files ) {
   ...
}