Foro - Perl en Español

por **victor531** » 2013-04-12 19:19 @846

Hola amigos, soy nuevo en esto y necesito borrar unos respaldos antiguos desde un directorio y tengo este script, que me funciona en un servidor y en otro no, creo que es un problema de sintaxis, pero no logro dar con la solución y necesito su ayuda. :roll:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
for i in `ls -lt /home/respaldo    | tail -n1`
do
rm -rf /home/respaldo/$i
done
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que hace es buscar el respaldo más viejo, lo selecciona y lo borra, pero al ejecutarlo me da el siguiente error

syntax error at ./borra line 5, near "do
rm"
Execution of ./borra aborted due to compilation errors.

Perdonen mi ignorancia pero no logro dar con la sintaxis correcta. :oops:

Cualquier ayuda es bien recibida.

Gracias de antemano.

Victor

#!/usr/bin/perl
use autodie;
 
my $dir = '/home/respaldo';
 
chdir $dir;                                       # entramos en el directorio
 
opendir DIR, '.';                                 # abrimos el directorio para leer los contenidos
 
@archivos = readdir DIR;                          # leemos el directorio
@archivos = sort { -M $a <=> -M $b } @archivos;   # los ordenamos por fecha
 
unlink $archivos[-1];                             # borramos el último
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

O, de forma más abreviada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
unlink +(sort { -M $a <=> -M $b } </home/respaldo/*>)[-1];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **victor531** » 2013-04-13 05:31 @272

explorer..., muchísimas gracia por tu ayuda, tu solución funcionó perfectamente y ya está en uso

.

Pero me queda una consulta que no guarda relación con Perl, ¿cómo saber qué tipo de shell tengo instalada?

Gracias nuevamente

Victor

por **Dshellnoi_Unix** » 2013-04-13 07:30 @354

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Dshellnoi$ echo  $SHELL
/bin/bash
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Dshellnoi$ cat /etc/shells
# /etc/shells: valid login shells
/bin/sh
#/bin/dash
/bin/bash
#/bin/rbash
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **victor531** » 2013-04-13 09:32 @439

Estimado, agradecido nuevamente.

Victor

por **pionero** » 2015-10-22 13:08 @589

Hola, sigo este hilo porque tiene que ver y me gustaría hacer lo mismo pero con una conexión ftp establecida, porque mando los respaldos por ftp pero no sé cómo limitarlos. Desde ya, muchas gracias.

por **explorer** » 2015-10-26 04:53 @245

Bienvenido a los foros de Perl en Español, pionero.

¿A qué te refieres con "limitarlos"?

por **pionero** » 2015-10-26 08:56 @414

Hola, explorer, gracias por la bienvenida.

Te explico: lo que quiero es borrar el último y más viejo de los respaldos ya que se respalda todos los días y los .tgz son gigantescos.

Localmente los hago sin problemas y te adjunto el script, pero si quiero hacerlo en un directorio ftp remoto no sé cómo establecer conexión y que el script actúe sobre el mismo.

Intenté montar el directorio con curlftpfs pero me da muchos problemas y quiero independizarlo con parámetros para perl y centralizarlo.

Adjunto lo que tengo:

#----------------------------------------------------------------------------
$BK_DIR="/root/externo/"; # Directorio donde se almacenan los respaldos
$MAX_BK=1; # Cantidad máxima de respaldos a mantener
#----------------------------------------------------------------------------
#
chdir($BK_DIR);

# Borro los archivos DAILY...
@files=glob('Backup*.tgz'); # Leo todos los archivos del directorio de respaldos
@sortedFiles=sort @files; # Los ordeno alfabéticamente

#
for ($i=0; $i<($#sortedFiles + 1 - $MAX_BK); $i++) {
$filename="$BK_DIR".$sortedFiles[$i];
unlink($filename);
}

por **explorer** » 2015-10-27 16:28 @728

En Perl tienes algunos módulos que te pueden ayudar en la conexión FTP.

Yo, por ejemplo, he usado mucho Net::FTP.

Por estos foros verás muchas referencias a él.

El tema es el siguiente: te conectas al servidor (con el login()). Luego vas al directorio donde están los archivos que quieres mirar. Luego haces un dir() para extraer el listado de archivos, junto con sus fechas de modificación.

Recorremos la lista, sacando el nombre de cada archivo y la fecha de su modificación. De esa manera sabemos cuál tenemos que borrar (el más grande, el más antiguo, el más feo, o la regla que quieras imponer). Lo borramos con delete().

Finalmente, cerramos la conexión.

El problema esta en la parte de obtener la fecha de modificación. Se puede hacer un bucle y ejecutar mdtm() en cada archivo, pero a lo peor el servidor FTP no lo soporta. En ese caso, no queda más remedio que hacer un listado con dir(), y extraer la información de ese texto, línea a línea.

por **pionero** » 2015-10-29 10:05 @461

Muchas gracias, explorer, voy ver si lo puedo implementar.

Foro - Perl en Español

script para borrar respaldo antiguo

script para borrar respaldo antiguo

Publicidad

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

Re: script para borrar respaldo antiguo

¿Quién está conectado?