#!/usr/bin/perl 
use strict;
 
my $directorio = '/home/yoya/Escritorio'; #Directorio
 
my $dir = search_backup($directorio);#Almaceno los resultado de la funcion en la variable $dir
my @archivos = split(" ",$dir);#Divido la cadena y los guardo en un arreglo
foreach my $archivos(@archivos){#Recorro el arreglo
my $path = $directorio."/".$archivos;#Path completo del archivo
 
my $file_time = (stat($path))[9];#Obtengo la fecha de la ultima modificacion del archivo
 
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($file_time);
my ($sec1,$min1,$hour1,$mday1,$mon1,$year1,$wday1,$yda1y,$isdst1) = localtime(time);
 
#Si el mes de la ultima modificacion es mayor que el mes actual y el dia de la creacion del archivo
#es mayor al dia actual, se ejecuta el if
if($mon1 > $mon && $mday1 >= $mday || $mon1 > $mon-1){
print "$path ah sido borrado\n";
unlink($path);#Se borra el backup con un mes de antiguedad
 
}#Fin del if()
 
}#Fin del bucle foreach()
 
 
 
 
#Funcion para buscar archivos dentro de un directorio
sub search_backup(){
opendir(DIR, $_[0]) || die "Error al abrir $_[0]\n";#Intentamos abrir el directorio
 
my $result;
while((my $archivos = readdir(DIR))){#Leemos el directorio
 
if($archivos !~ m/\.sql$/ig){#Si la extensión no es .sql se ejecuta el if
next;#Pasamos al siguiente ciclo
}#Fin del if
$result .= "$archivos ";#Vamos agregando cada resultado de cada ciclo a la variable $result
}#Fin del bucle while()
 
return $result; #Retornamo los directorios
}#Fin de la funcion
 
exit;