Perl获取指定目录中的文件

发布时间：2020-12-15 23:43:28 所属栏目：大数据来源：网络整理

导读：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 (@co

<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>

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!