Foro - Perl en Español

por **el_aislante** » 2005-07-26 12:51 @577

Hola, tengo una duda...

La situación es que no puede hacer un cgi que se descarge un archivo ZIP.
Básicamente lo que deseo es que un archivo en el servidor llamado:

Miarchivo.abc

que en realidad es un archivo "programa.zip"... sea mandado como tal...

Uso lo siguiente

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
print "content-type: application/zip\n\n";
open Archivo, "Miarchivo.abc";
while (<Archivo>){
      Print;
}
close Archivo;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El navegador sí despliega la ventana de descargar archivo, pero manda un archivo de longitud cero.

Supongo para esto también requiero mandar información del nombre del archivo, tamaño del archivo, etc....

¿Cómo puedo hacer para que esta tarea sea efectiva?

Gracias...

Hola, yo de nuevo...

En el código anterior la arreglé un poquito. pero bueno, el chiste es que el CGI manda un archivo.zip, solo que cuando el navegador abre la ventana de Guardar como..., aparece el nombre del cgi con la extensión .zip...

¿Cómo puedo decir cómo se llamará el archivo en realidad?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
print "content-type: application/zip\n";
print "content-length: 4013961\n";
print "accept-ranges: bytes\n\n";
 
open (Archivo, "< MiArchivo.abc");
while (<Archivo>){
  print;
}
close (Archivo);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Es posible con una etiqueta así?

print "content-file: nuevonombre.zip\n";

o

print "content-name: nuevonombre.zip\n";

pues ninguna de las dos anteriores me ha funcionado...

¿Alguien conoce la etiqueta que debo mandar para especificar cómo se llamará el archivo?

Gracias

por **el_aislante** » 2005-07-26 16:18 @720

Hola...

Creo ya haber encontrado cómo hacerle...

Para el que le interese aquí le dejo mi solución...

Por medio de un script "BajarArchivo.cgi"...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
print "content-type: application/zip\n";
print "Content-disposition: attachment; filename=MiArchivo.zip\n"; #<---
print "content-length: 9013961\n";
print "accept-ranges: bytes\n\n";
 
open (Archivo, "< ArchivoOrigen.adb");#<---
while (<Archivo>){
  print;
}
close (Archivo);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto hará que el navegador, cuando despliega la ventana de "Guardar como..." aparezca el nombre de archivo que queramos.

Gracias...

Foro - Perl en Español

Descarga de archivos

Descarga de archivos

Publicidad

manda archivo ZIP

archivo ZIP

¿Quién está conectado?