Re: del files that is 7 days or older

[djw]

I think you should check out File::stat to get all kinds of nice status information about files. You could setup a specific date you would like to have as your cut off date and then test it against the file creation date and delete if necessary. Here is a snippet:

$set_time = 2592000;        # 30 days in epoch time modify for taste
$current_date = time;


$create_date = stat($_)->ctime;

if ($create_date < ($current_date - $set_time)) {
  # deletion stuff here
}

Hope this helps,
djw