最近のもの以外のフォルダ内のすべてを削除するperl

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 

---

PS（またはあなたがあなたのgrep条件の一部として-M > 7を使用することができます。）。あなたのgrep状態の-tはおそらくそれがあなたが思っていることをしていないでしょう。 the docsから：

「-tからファイルハンドルが開いています。」

"引数を省略すると、STDINをテストする-tを除いて、$_をテストします。

だからあなたのコード内の-tはSTDINは、私はあなたが本当にチェックしたいものではありませんと仮定したい端末であるかどうかをチェックしています。

Answer 2

これを慎重に（Windows環境で）実行し、ドライランを可能にするスクリプトを自分のサイトに掲載しました。スクリプトはhttp://www.billruppert.com/2009/05/deleting-old-files.htmlです。ここにコピーするにはちょっと長いです。