Foro - Perl en Español

por **panterozo** » 2011-06-18 02:54 @162

Estimados:

Busqué en el foro alguna forma de descargar un archivo Excel, y encontré Esto.

Lo modifico para poder descargar un .xls, ya que el .csv retorna una tabla con comas. Esto lo logro utilizando Spreadsheet::Write.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Content-Type:application/vnd.ms-excel; name=prueba.xls\r\n";
print "Content-Disposition: attachment; filename=prueba.xls\r\n\n";
 
my $aux;
 
open( FILE, "</tmp/prueba.xls");
while($aux=<FILE>)
{
   print("$aux");
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que no aparece nada en el archivo Excel, todo vacío. He probado montones de formas, pero nada :s. No así, sí genero el csv, ya que lo descarga correctamente, y con datos.

Ambos archivos, .csv y .xls los genera correctamente, es un problema en la descarga del archivo.

¡¡¡Help please!!!

use CGI;
 
my $excel  = '/tmp/prueba.xls';
 
my $cgi = CGI->new();
print
    $cgi->header(
     -type        => 'application/vnd.ms-excel; name="prueba.xls"',  # vamos a enviar un Excel
     -Disposition => 'attachment; filename="prueba.xls"',            # nombre recomendado para guardarlo en disco
);
 
open (  EXCEL, $excel );
binmode EXCEL;
read  ( EXCEL, my $out, -s $excel );                          # Leemos todo el fichero, de golpe, en $out
close ( EXCEL );
 
binmode STDOUT;                                               # activamos la salida estándar en modo binario
print $out;                                                   # mandamos todo el fichero
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si no te gusta usar el módulo CGI, puedes quitarlo y cambiar las líneas del header() por las que pusiste antes. Lo principal es ver la forma de leer y enviar el fichero.

por **panterozo** » 2011-06-18 12:09 @548

Explorer:

Le cambié

-Disposition

por

'Content-Disposition'

, ya que de otra manera, al descargar me dice en vez de prueba.xls, informe.cgi.

El problema era que no estaba cerrando el Excel una vez creado, pero por default al parecer se cierra el archivo una vez saliendo del script, y como yo tengo todo en un solo script, tenía que cerrarlo primero.

Faltaba

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sp->close();Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora, con esto y con lo que me dices, puedo descargar el Excel sin problemas

¡¡¡¡Saludos!!!!

Foro - Perl en Español

Descargar Excel desde la web

Descargar Excel desde la web

Publicidad

Re: Descargar Excel desde la web

Re: Descargar Excel desde la web

¿Quién está conectado?