Pasted

#!/usr/bin/perl
 
use strict;
use warnings;
 
# $mysql_backup_dir
# $seconds_to_save  = $increments_to_save * $seconds_multiplier;
# Just set the seconds_to_save number to
# the correct number of seconds, i.e:
# minute: 60 / hour: 3600 / day: 86400 / week: 604800
 
#my $seconds_to_save = 604800;
my $seconds_to_save = ( 3 * 86400 ) ; # 3 days
 
# call this subroutine with the '$full_dir_name'
 
my ($full_dir_name) = $ARGV[0];
 
if ( not $full_dir_name ) { die "Need a directory name to clean..." };
 
if ( not -e $full_dir_name ) { die "\nCould NOT Clean Old Files - $full_dir_name doesn't exist.\n" };
 
print ("\nCleaning Old Files\n");
 
my $save_time  = time() - $seconds_to_save;
my $deleted_files = 0;
 
print ("\nRemoving Files Older than $seconds_to_save\n");
 
opendir (DIRHANDLE, $full_dir_name) or die "Couldn't open $full_dir_name:$!";
 
# we use $file_prefix to make it safer; we don't want to delete
# any files except those matching the file spec
my $file_prefix="menelvagor";
 
my @filelist = grep { /^$file_prefix/ } readdir(DIRHANDLE);
 
closedir (DIRHANDLE);
 
my @sortlist   = sort(@filelist);
 
my $file_count = @sortlist;
my $file_msg   = "File Count in Backup Dir: $file_count \n\n";
print ($file_msg);
 
# loop through directory
foreach my $infile (@sortlist) {
 
        my $infile_str = $infile;
        $infile     = "$full_dir_name/$infile";
 
        my ($modtime) = (stat($infile))[9];
 
        if ( $modtime < $save_time ) {
                # file is older, so delete it
                my $delete_count  = unlink "$infile";
        
                if ( ! -e $infile ) {
                                        $deleted_files++;
                                        print ("$delete_count File Removed: ($infile_str\)\n");
                                } 
                                else { print ("\nProblem Removing File: $infile_str\n"); }
                }
        else { print ("- Keeping: $infile_str\n"); }
 
        } # end of file loop
    
print "\nRemoved $deleted_files Files and/or Directories.\n";
 
~
~