删除除最近的文件夹以外的文件夹中的所有文件

Question

我试图合并一点清理到我的输出目录，其中最近的文件将被删除。

my @files = grep{ -f && -t } glob($outputdir); 
349 
350 my @expected_file = grep { /SequenomComparisonSummary\_(\d+)\.txt/} @files; 
351 foreach my $file(@expected_file){ 
352 
353 unlink $file; 
354 warn "Removing file $file\n"; 
355 } 

但我想保留最近的目录，并删除其余的？有没有更简单的方法来做到这一点？

非常感谢您的建议。

Answer 1

如何：

unlink $file if -M $file > 7; # unlink if older than one week 

（或者你可以使用-M > 7为您grep条件的一部分。）

---

诗篇。您的grep条件中的-t可能不是您认为的那样。 From the docs：

“-t文件句柄打开到tty。” “

”如果省略参数，则测试$_，除了测试STDIN的-t“。

因此，在你的代码-t正在检查STDIN是否是一个终端，我认为是不是你真正想检查。

Answer 2

我在我的网站上发布了一个脚本，以便仔细执行此操作（在Windows环境中）并允许执行空运行。该脚本在http://www.billruppert.com/2009/05/deleting-old-files.html。在这里复制有点长。