刪除除最近的文件夾以外的文件夾中的所有文件

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。在這裏複製有點長。