Foro - Perl en Español

Hola de nuevo, estoy haciendo un programa que me genera un archivo y como este finalmente pesa mucho necesito comprimirlo y que quede en formato zip, he utilizado la librería Archive::Zip, y el programa me crea el archivo .zip pero no está agregando el archivo que necesito que comprima, es decir, al final me crea un archivo zip ¡¡pero vacío!! , aquí adjunto el código que he escrito para que vean que es lo que está mal:



La variable $nombreArchivo qué es la que me da el nombre de mi archivo a comprimir, también le puse un nombre real y tampoco funcionó.

Según la documentación, no debes darle a addFile() un camino absoluto al fichero a comprimir. Prueba a colocarte en el mismo directorio donde está el fichero $nombreArchivo.

Sí, efectivamente, fue otro error de novato en Perl, jajaja. Lo que hice fue hacer un cambio de directorio en la línea antes de comenzar a crear el zip y listo, se resolvió. Antes, cuando se ejecutaba la rutina no conseguía el archivo que le estaba mandando a comprimir.

Recuerda que addFile() puede admitir dos argumentos: el nombre (con todo el path) del fichero a comprimir, y el nombre como deseamos que quede comprimido.

Quizás no hubiera sido necesario hacer el movimiento de directorios...