Re^2: Deleting old files from directory

this is what you mean?

  foreach (grep {-f $_ and 10 < -M _ } @files) {      
    print "\n Deleting::: $_\n";
    unlink $_;
   }
[download]

Comment on Re^2: Deleting old files from directory Download Code

Replies are listed 'Best First'.
Re^3: Deleting old files from directory by Anonymous Monk on Sep 27, 2011 at 20:24 UTC
Almost Simply replace EXISTING grep block with mine, no need to change anything else	[reply]