#!/usr/bin/perl
use strict;
use File::Find;
if ($ARGV[0] eq "") { $ARGV[0]="."; }
my @file_list;
find ( sub {
my $file = $File::Find::name;
if ( -f $file && $file =~ /^DATE_/) {
push (@file_list, $file)
}
}, @ARGV);
my $now = time(); # get current time
my $AGE = 60*60*24*14; # convert 14 days into seconds
for my $file (@file_list) {
my @stats = stat($file);
if ($now-$stats[9] > $AGE) { # file older than 14 days
print "$file\n";
}
}
####
cleanup.pl /var/backups/repository
##
##
unlink $file;