that's ok

merlin — Mon, 18 Dec 2000 09:25:14 +0000

thanks japhy, you told me what i was looking for. and beside, the hard thing (at least for me) is the syntax. for changing the file-selection i only have to change the letter (-A, -C, -M).

oops...

japhy — Sun, 17 Dec 2000 17:38:11 +0000

Well, now I feel kinda silly. The code I'd posted was for files that have not been updated in X days. So that answers your question, Edge.

You can't get at the creation time of files, alibababa, so the code you're using is testing for when the file was last modified. That might be what you wanted, though.

Edge — Sun, 17 Dec 2000 17:33:44 +0000

Just wondering, how would you delete all files that haven't been modified within x number of days?

--Edge

yep!

merlin — Wed, 13 Dec 2000 08:18:18 +0000

that worked! i didn't give the path of the file, that's what i made wrong, probably...
anyway, now it's working and it's great! thanks japhy!

How doesn't it work?

japhy — Tue, 12 Dec 2000 23:20:43 +0000

You should be testing the return value of unlink() -- maybe then, you'll have a better idea of why it's not working. It works for me:

opendir DIR, $path or die "can't read $path: $!";
while (defined(my $file = readdir DIR)) {
  # use the path to the file, not just the name of the file
  next unless -f "$path/$file";
  if (-M "$path/$file" >= 7) {
    # delete if a week old
    unlink "$path/$file" or warn "can't delete $path/$file: $!";
  }
}
closedir DIR;