Foro - Perl en Español

Hola,

Tengo una pregunta que no encuentro solución, o al menos a mi no me funciona.

Necesito un código para forzar al navegador a descargar un archivo, esto es, tengo un sistema donde subo archivos a mi servidor, estos pueden ser imágenes, audio y más, pero resulta que cuando quiero descargar un archivo éste se abre en el navegador, en el caso de las imágenes, en el reproductor de audio en el caso de audios, y así.

Por lo que necesito que el usuario al dar clic, se abra la ventana donde él escoja dónde guardar el archivo. Vi un código en PHP y traté de pasarlo a Perl pero no lo conseguí.

Alguna pista, amigos.

Gracias.

No es una solución al problema, pero súbelos comprimidos. Ahí sí te permitirá descargar...

No, mentiras... Puedes usar File::Download para hacer la descarga. Es recomendado para archivos grandes, pero es algo así:

Es muy sencillo... solo tienes que agregar

Content-disposition: attachment; filename=fichero

a la cabecera HTTP de la respuesta a la petición que te hace el cliente.

Si usas el módulo CGI, te vale con ponerlo en el header():


El Content_length es opcional, la mayoría de los casos, pero así el usuario (su sistema operativo) sabe cómo de largo es el fichero que estás transmitiendo.

El valor que se le pasa a type es el MIME Type del fichero a transmitir. En el ejemplo, una imagen.

El File::Download que te indica danimera es para justo lo contrario (descargarte un fichero), no para subir un fichero hacia el usuario.

Muy bien,

Ya descarga el archivo pero el detalle es que lo descarga de 0 bytes. ¿Cuál puede ser el problema?

Humm... que tool.jpg no está en el mismo directorio que el CGI que estás ejecutando.

Y además, ten en cuanta que con header() solo envías la cabecera HTTP. Luego debes enviar el fichero. Para ello, debes hacer un bucle, leer el fichero original (en binario), y mandarlo por la salida estándar (que es donde está escuchando el cliente).

Sí, me faltaba leer el archivo.



Otra pregunta. En teoría, si quisiera hacerlo para todos los tipos de archivos, tendría que cambiar solamente el type en el header, ¿o qué tendría que hacer?

Sí, con cambiar el type, vale.