查找指定目录下的所有日志文件*.log perl

Perl :

opendir ( SOURCEFILEDIR, $SrcFileDir) or die "Could not open '$SrcFileDir' : $!";

my @array;

while (my $file = readdir(SOURCEFILEDIR)) {

next unless (-f "$SrcFileDir/$file");

#*.log files

if (rindex($file,'.log')== -1){

push @array, $file;

}

# *.err files

if (rindex($file,'.err')== -1){

push @array, $file;

}

}

closedir(SOURCEFILEDIR);