Perl获取指定目录中的文件

概述<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表示选出目

<span >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获取指定目录中的文件全部内容，希望文章能够帮你解决Perl获取指定目录中的文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。