my $time = time; my $image_dir = '/path/to/script\'s/private/image/dir'; opendir(DIR, $image_dir) or die "Can't opendir $image_dir: $!\n"; while (defined(my $filename = readdir(DIR))) { next unless -f "$image_dir/$filename"; next unless time - (stat(_))[9] > 300; unlink("$image_dir/$filename") or warn "Can't unlink $image_dir/$filename: $!\n"; }
In reply to Re: deleting a file after loading
by chipmunk
in thread deleting a file after loading
by belize
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |