Foro - Perl en Español

por **silva** » 2013-01-23 14:12 @633

Creo un archivo xls con el módulo Spreadsheet::WriteExcel. Puedo verlo y se crea bien. Mi problema es que quiero abrir ese archivo desde un cgi, y este no se abre.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use CGI ':all';
use Spreadsheet::WriteExcel;
 
# Suponiendo creado OK el archivo prueba.xls, Luego:
 
   open (FILE, "/tmp/archivos_xls/prueba.xls");
   local ($/);
   my $file = <FILE>;
   close (FILE);
 
    print "Content-type: application/vnd.ms-excel\n";
    print "Content-Disposition: attachment; filename='prueba.xls'\n";
    print "Content-Description: File to download\n\n";
 
    print $file;
 
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Al ejecutar el cgi, no abre el archivo aunque éste está creado. ¿Cómo hago para abrirlo? ¿Qué sintaxis utilizo? ¡¡¡¡Gracias!!!!

tu llamas al cgi con el navegador web
el navegador pasa la petición al servidor web
el servidor web localiza el cgi y lo ejecuta
el cgi carga el módulo, busca el archivo, y lo envía por la salida estándar precedido por unas cabeceras
el servidor web encamina todo eso hacia el navegador web
tu navegador recibe todo, y al ver las cabeceras, se da cuenta de que es de un tipo de archivo que no conoce, así que se lo pasa al sistema operativo
el sistema operativo debe buscar en su base de datos qué aplicación debe arrancar para poder mostrar archivos ms-excel. Si no encuentra ninguno, responde con error
si encuentra alguna aplicación, la arranca y le pasa como argumento el nombre del archivo, que estará almacenado en la carpeta de archivos temporales, donde lo dejó el navegador web

Entonces...

en tu cgi no necesitas cargar el módulo Spreadsheet::WriteExcel, porque tu cgi no necesita escribir en ningún archivo Excel. Solo quieres transportarlo
la lectura de archivos binarios debe indicarse de modo explícito. Si no, Perl creará que estás leyendo un archivo de texto. En la línea 11, $file contendrá todo el archivo Excel prueba.xls, pero los bytes que hayan coincidido con alguna secuencia especial (como los caracteres de nueva línea) pueden haber sido modificados o eliminados. Es mejor que pongas un binmode(FILE); después del open(). Y lo mismo a la salida. Pon un binmode(STDOUT); antes del print() de la línea 18
* aunque estás cargando el módulo CGI, realmente no lo estás usando en ningún sitio, así que esa línea también sobra

Quedaría algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
my $file;
{
    local $/;
    open my $FILE, '<', '/tmp/archivos_xls/prueba.xls'  or die "ERROR: $!\n";
    binmode $FILE;
    $file= <$FILE>;
    close   $FILE;
}
 
binmode STDOUT;
 
print "Content-type: application/msexcel\n";                         # application/vnd.ms-excel
print "Content-Disposition: attachment; filename='prueba.xls'\n";
print "\n";
print $file;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aún tengo alguna duda sobre si ese Content-type es el correcto... bueno, he dejado indicados los dos.

Otra cosa es que el archivo Excel lo quieras crear en el momento, es decir, en la propia llamada al cgi. En ese caso sí que necesitas cargar el módulo Spreadsheet::WriteExcel, para generar el archivo Excel en memoria, y luego mandarlo al usuario (ejemplo).

por **silva** » 2013-01-23 19:16 @844

¡¡¡Gracias por tu respuesta y valioso tiempo!!!

He detectado el problema, pero no sé cómo resolverlo.

Mi aplicación CGI se basa en un formulario donde el usuario ingresa ciertos parámetros, con los cuales yo genero un archivo Excel que el usuario necesita y se lo abro para que lo vea.

Necesito tanto el módulo CGI, como el módulo Spreadsheet::WriteExcel para crear el archivo xls. Todo esto se hace correctamente porque estoy viendo el archivo que se genera al ejecutar el script, pero cuando al finalizar la generación del xls quiero abrirlo automáticamente, éste no se abre, tira error, aunque existe, lo veo creado bien y puedo abrirlo desde afuera.

Es decir, lo que no funciona es la apertura automática del archivo, sintaxis de apertura que procede a la sintaxis de creación del mismo con Spreadsheet::WriteExcel.

A groso modo pongo líneas de código:

Sintáxis: [ Descargar ] [ Ocultar ]

while () {...
if { ..
# Conformo el archivo XLS
#----------------------------------------------------------------------
my $DirXLS = '/tmp/archivos_pdf';
my $FileXLS = "Despacho_" . sprintf("%02d", $dia ) . sprintf("%02d", $mes ). $anio . 'xls' ;
if ($open_file eq 'T') {
# Create a new workbook and add a worksheet
$workbook = Spreadsheet::WriteExcel->new($DirXLS . '/' . $FileXLS);
$worksheet = $workbook->add_worksheet();
# Create a format for the column headings
$header = $workbook->add_format();
$header->set_bold();
$header->set_size(10);
$header->set_color('blue');
# Create a format para campos numerico entero
$f_numerico = $workbook->add_format();
$f_numerico->set_align('right');
$f_numerico->set_size(9);
$f_numerico->set_num_format('General');
# Create a format para campos monetarios
$f_monetario = $workbook->add_format();
$f_monetario->set_align('right');
$f_monetario->set_size(9);
$f_monetario->set_num_format('0.00');
# Create a format para campos de volumen
$f_volumen = $workbook->add_format();
$f_volumen->set_align('right');
$f_volumen->set_size(9);
$f_volumen->set_num_format('0.0000');
# Create a format for the stock volume
$f_alfabetico = $workbook->add_format();
$f_alfabetico->set_size(9);
$f_alfabetico->set_align('left');
$filler= 0;
# Write encabezados
$worksheet->write(0, 0, 'TIPO', $header);
$worksheet->write(0, 1, 'NRO_CTACTE', $header);
$worksheet->write(0, 2, 'CEMIS_CBTE', $header);
$worksheet->write(0, 3, 'NRO_CBTE', $header);
$worksheet->write(0, 4, 'LETRA_CBTE',$header);
$worksheet->write(0, 5, 'FECHA_CBTE', $header);
$worksheet->write(0, 6, 'RAZSOC_DEST', $header);
$worksheet->write(0, 7, 'DOMIC_DEST', $header);
$worksheet->write(0, 8, 'LOCAL_DEST', $header);
$worksheet->write(0, 9, 'Filler',$header);
$worksheet->write(0, 10, 'CODPOS_DEST', $header);
# Write filas
$worksheet->write($fila, 0, $tipo, $f_alfabetico);
$worksheet->write($fila, 1, $nro_ctacte, $f_alfabetico);
$worksheet->write($fila, 2, $cemis_cbte , $f_numerico);
$worksheet->write($fila, 3, $nro_cbte, $f_numerico);
$worksheet->write($fila, 4, $letra_cbte, $f_alfabetico);
$worksheet->write($fila, 5, $fecha_cbte, $f_numerico);
$worksheet->write($fila, 6, $razsoc_dest, $f_alfabetico);
$worksheet->write($fila, 7, $domic_dest, $f_alfabetico);
$worksheet->write($fila, 8, $local_dest, $f_alfabetico);
$worksheet->write($fila, 9, $filler, $f_numerico);
$worksheet->write($fila, 10, $codpos_dest, $f_numerico);
$fila = $fila + 1;
$open_file = 'F';
}
else {
# Write filas
$worksheet->write($fila, 0, $tipo, $f_alfabetico);
$worksheet->write($fila, 1, $nro_ctacte, $f_alfabetico);
$worksheet->write($fila, 2, $cemis_cbte, $f_numerico);
$worksheet->write($fila, 3, $nro_cbte, $f_numerico);
$worksheet->write($fila, 4, $letra_cbte, $f_alfabetico);
$worksheet->write($fila, 5, $fecha_cbte, $f_numerico);
$worksheet->write($fila, 6, $razsoc_dest, $f_alfabetico);
$worksheet->write($fila, 7, $domic_dest, $f_alfabetico);
$worksheet->write($fila, 8, $local_dest, $f_alfabetico);
$worksheet->write($fila, 9, $filler, $f_numerico);
$worksheet->write($fila, 10, $codpos_dest, $f_numerico);
$fila = $fila + 1;
} # end mpresion de linea
} # END if despachar
$i = $i + 1 ;
$j = $j + 1;
} # END while cant- de envioc
# Abro en pantalla el archivo XLS creado Esto no funciona abriendo el archivo generado anteriormente. Si funciona si abro un archivo generado antes, no reciente
#-----------------------------------------------------------------------------
my $pathXLS = $DirXLS . '/' . $FileXLS;
open XLS, $pathXLS or die "Error, No puede abrir archivo XLS" ;
binmode(XLS);
my $fileSize = -s $pathXLS;
print "Content-type: application/octet-stream\r\n";
print "Content-Length: ".$fileSize."\r\n";
print "Content-disposition: attachment; filename=$pathXLS\r\n";
print "Content-Transfer-Encoding: binary\r\n";
print "Pragma: no-cache\r\n";
print "\r\n";
print while (<XLS>);
close XLS;

¿Me comprendes? ¡¡¡Gracias!!!

por **explorer** » 2013-01-24 11:05 @503

Por el código, veo que haces lo tradicional: primero generas el archivo XLS en disco, y luego lo abres para enviarlo al navegador web. De ese código, lo que falta por hacer es un $workbook->close() para que el módulo grabe todos los cambios a disco.

Pero, te repito, que no necesitas hacerlo de esa manera.

Puedes generar el archivo XLS en memoria, y no tener que grabarlo en disco. Solo tienes que 1) enviar las cabeceras, y 2) crear el objeto Spreadsheet::WriteExcel con destino la salida estándar. Así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    print "Content-type: application/vnd.ms-excel\n";
    # The Content-Disposition will generate a prompt to save the file. If you want
    # to stream the file to the browser, comment out the following line.
    print "Content-Disposition: attachment; filename=$filename\n";
    print "\n";
 
    # Create a new workbook and add a worksheet. The special Perl filehandle - will
    # redirect the output to STDOUT
    #
    my $workbook  = Spreadsheet::WriteExcel->new(\*STDOUT);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(Líneas extraídas del ejemplo cgi.pl de la página Spreadsheet::WriteExcel::Examples)

De todas maneras, si quieres grabar el resultado a disco, entonces puedes hacerlo como hasta ahora, pero poniendo el close().

Fíjate en lo que pone en los comentarios: el envío de la cabecera 'attachment' provoca que, al usuario, le aparezca el formulario de "Guardar como...", para que elija nombre y destino del archivo que está recibiendo. ¿Es ese el comportamiento que quieres que ocurra? Como hablas de la "apertura automática", entendí que te referías a que se ejecutara el Excel con ese archivo.

Otro caso, que acabo de darme cuenta. ¿Estás generando los archivos en la misma máquina en donde los quieres ver?

por **silva** » 2013-01-24 13:53 @620

Gracias. Resuelto.

1- La opción $workbook->close() anda correctamente

2- La opción de generar el archivo XLS en memoria. Solo se imprimen la primera y segunda línea del archivo, es decir las líneas que se encuentran dentro de la condición if() verdadera. Las demás líneas conformantes del archivo corresponden al else{} y no se están imprimiendo.

Pero con la opción 1 está resuelto. ¡¡¡Gracias!!!

por **explorer** » 2013-01-24 16:17 @720

Es que el código que has mostrado no da pistas de la forma en que creas las hojas.

Vemos que el if() depende de una variable llamada $open_file. Si esa variable es igual a 'T', entonces es cuando creas el archivo. Si no, no se crea el archivo porque se supone que ya lo está.

Pero el resultado debería ser igual que grabarlo a disco. Bueno, no: si no lo grabas a disco, el resultado es más rápido (te ahorras el proceso de grabar a disco).

Foro - Perl en Español

Abrir archivo xls con Spreadsheet::WriteExcel

Abrir archivo xls con Spreadsheet::WriteExcel

Publicidad

Re: Abrir archivo xls con Spreadsheet::WriteExcel

Re: Abrir archivo xls con Spreadsheet::WriteExcel

Re: Abrir archivo xls con Spreadsheet::WriteExcel

Re: Abrir archivo xls con Spreadsheet::WriteExcel

Re: Abrir archivo xls con Spreadsheet::WriteExcel

¿Quién está conectado?