Question

perl怎么从一个目录里抓取特定时间以后的文件

perl怎么从一个目录里抓取特定时间以后的文件

Answer 1

my @all_files =glob "*";
foreach my $file (@all_files){
push @new_files, $file
if -M $file < 7;
}
print "@new_files\n";

Perl中有一系列的文件测试操作符，上文中的M表示最后一次修改后至今的天数；与之类似的是A，表示最后一次访问后至今的天数。
注：上文中的7表示7天。

详细参考《Perl语言入门》（第五版，中文版）第十二章（191页）：文件测试。