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.
-
- Publicidad
Forzar a navegador a descargar archivo
8 mensajes
• Página 1 de 1
- bAsTeR
- Perlero nuevo
- Mensajes: 63
- Registrado: 2008-10-28 11:29 @520
- Ubicación: Chihuahua, Chih. Mexico
Publicidad
Re: Forzar a navegador a descargar archivo
por danimera » 2010-06-07 23:09 @006
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í:
No, mentiras... Puedes usar File::Download para hacer la descarga. Es recomendado para archivos grandes, pero es algo así:
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Cali PerlMongers: http://cali.pm.org
-
danimera - Perlero frecuente
- Mensajes: 871
- Registrado: 2005-06-23 19:02 @834
- Ubicación: Colombia
Re: Forzar a navegador a descargar archivo
por explorer » 2010-06-08 06:39 @319
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.
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():
Using perl Syntax Highlighting
print header (
-type => 'image/jpg',
-Content-disposition => "attachment; filename=$nombre_de_la_imagen",
-Content_length => -s $nombre_de_la_imagen,
);
-type => 'image/jpg',
-Content-disposition => "attachment; filename=$nombre_de_la_imagen",
-Content_length => -s $nombre_de_la_imagen,
);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Forzar a navegador a descargar archivo
por bAsTeR » 2010-06-08 10:53 @495
Muy bien,
Ya descarga el archivo pero el detalle es que lo descarga de 0 bytes. ¿Cuál puede ser el problema?
Ya descarga el archivo pero el detalle es que lo descarga de 0 bytes. ¿Cuál puede ser el problema?
Always Perl 
- bAsTeR
- Perlero nuevo
- Mensajes: 63
- Registrado: 2008-10-28 11:29 @520
- Ubicación: Chihuahua, Chih. Mexico
Re: Forzar a navegador a descargar archivo
por explorer » 2010-06-08 10:56 @497
Humm... que tool.jpg no está en el mismo directorio que el CGI que estás ejecutando.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Forzar a navegador a descargar archivo
por explorer » 2010-06-08 10:58 @498
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).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Forzar a navegador a descargar archivo
por bAsTeR » 2010-06-08 11:25 @517
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?
Using perl Syntax Highlighting
- print header (
- -type => "image/jpg",
- -attachment => "tool.jpg",
- -content_length => -s "tool.jpg",
- );
- open(OUTFILE,"<tool.jpg");
- binmode(OUTFILE);
- while(<OUTFILE>){
- print "$_";
- }
- close(OUTFILE);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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?
Always Perl
- bAsTeR
- Perlero nuevo
- Mensajes: 63
- Registrado: 2008-10-28 11:29 @520
- Ubicación: Chihuahua, Chih. Mexico
Re: Forzar a navegador a descargar archivo
por explorer » 2010-06-08 17:38 @776
Sí, con cambiar el type, vale.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 10 invitados