<span style="font-size:18px;">use strict;
my $path="D:\\perl";
my $keyfile;
my $keytime;
opendir(dir, $path) or die "Cannot open it:$!";
print "\n";
while(my @count= grep -f, readdir(dir)) # -f表示选出目录中的文件
{
closedir(dir);
foreach $keyfile (@count)
{
chomp($keyfile);
$keytime=(stat($keyfile))[9];
print $keyfile," ",$keytime,"\n";
}
}</span>
Perl获取指定目录中的文件
最新推荐文章于 2019-07-27 22:17:57 发布