Foro - Perl en Español

Chicos, necesito saber si me pueden ayudar con lo siguiente:

Necesito hacer un respaldo de un directorio, que por defecto es /root/Desktop, o puede llegar por parámetro. El directorio tengo que comprimirlo en un archivo zip, y si es mayor de 10 Mb el archivo tengo que dividirlo y el respaldo debe quedar guardado en el directorio ~/respaldos

¡ Gracias !

Pero, ¿con 10 Mb te refieres a los datos ya comprimidos o a los datos sin comprimir?

Los 10 Mb significa que si el directorio comprimido es más grande que 10 Mb tengo que dividirlo en partes de 10 Mb.

Bueno, se puede hacer de la siguiente manera...

• Iniciamos un archivo zip, en vacío
• Hacemos un bucle recorriendo recursivamente todo el contenido del directorio a comprimir
• Por cada contenido (archivo), lo comprimimos en el zip actual
• Si el resultado supera los 10 Mb, entonces sacamos el archivo del zip (lo borramos), cerramos el zip y abrimos uno nuevo, donde el primer contenido es el archivo que habíamos descartado
• Repetir para todos los demás

Todo esto se puede hacer con Perl, con el módulo Archive::Zip, en un pequeño programa, o...

Quizás más cómodo, usar el comando zip del sistema:

cd ~/respaldos
zip -s 10m -r archivo.zip /root/Desktop

Más información en la página de manual de zip.