Foro - Perl en Español

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.


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.

Cualquier ayuda es bien recibida.

Gracias de antemano.

Victor

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

Es normal que falle: ese código no está escrito en Perl, sino en shell.

Cambia la primera línea del programa a #!/bin/bash, en caso de que sea bash el tipo de shell que tengas instalado.

En Perl lo escribiríamos así:


O, de forma más abreviada:

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

Estimado, agradecido nuevamente.

Victor

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.

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

¿A qué te refieres con "limitarlos"?

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);
}

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.

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