All pastes #912644 Raw Edit

Mine

public text v1 · immutable
·published 2008-02-21 15:19 UTC
rendered paste body
my $maxDaysOld = 5;
my $dir = '/path/to/dir';

chdir $dir;

opendir DIRECTORY, "." or die "Cannot open current dir!\n";

while(my $f = readdir(DIRECTORY))
{
  next unless $f =~ /tar\.gz$/;  # skip ., .., .htaccess, .pl, etc

  if(-C $f > $maxDaysOld)
  {
     if(unlink($_) == 1) {
#     print "deleted file: $_\n";
    }
  }
}