Ver Tema

manu8c · 2011-04-02 07:27 @352

Hola de nuevo. Espero que esta sea mi última duda sobre Perl dentro de este proyecto.

He generado un PDF con el módulo PDF::Create y lo tengo guardado en el servidor: .../PROYECTO/PDF/fichero1

Los CGI están guardados en la carpeta .../PROYECTO/GGI-BIN/*.pl

Bueno, el tema es que estoy intentando que el cliente pueda descargar ese pdf y lo que yo hago es crear un botón de descarga que llama a DownloadPDF.pl.

Y en este módulo hago lo siguiente:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use DBI;
use CGI;
 
my $query = new CGI;
my %FORM = $query->Vars;
 
print "Content-type: text/html\r\n\r\n";
 
print 'Content-Type:application/octet-stream; name= "../PDF/ficheroPDF"\r\n';
print 'Content-Disposition: attachment; filename="../PDF/ficheroPDF1"\r\n\n';

Se me abre la ventana de descargar y no descarga nada.
He estado leyendo bastante sobre el tema y he visto que tengo que leer el fichero para poder escribirlo o algo así.

he probado también con cosas así, pero tampoco funciona:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

print header (
   -type => "pdf",
   -attachment => "http://localhost/proyecto/pdf/FICH1.pdf",
   -content_length => -s "http://localhost/proyecto/pdf/FICH1.pdf",
);
 
open(OUTFILE,"<http://localhost/proyectoManu/pdf/NONONO.pdf");
 
binmode(OUTFILE);
 
while(<OUTFILE>){
   print "$_";
}
close(OUTFILE);
 
 
 

A ver si me podéis echar una ayuda, porque en este tema está todo bastante confuso. ¡Ah!, se me olvidaba: también he bajado el módulo http://search.cpan.org/dist/Net-Downloa ... d/Queue.pm , pero tampoco lo he podido hacer funcionar.

explorer · 2011-04-02 10:59 @499

Cuando el navegador recibe las cabeceras de que se está bajando un fichero, comienza la espera de ese fichero, pero ¿quién se lo envía? El navegador no sabe bajarlo porque no sabe la URL de donde se encuentra. Si al navegador, en lugar de darle unas cabeceras, le hubieses dado esa URL, lo bajaría por sí mismo. Si no, tendrá que ser el mismo CGI el que se lo sirva, quizás abriendo el fichero y enviándoselo al navegador (que está esperando).

En Perl, cuando haces

open(OUTFILE,"<http://localhost/proyectoManu/pdf/NONONO.pdf");

le estás indicando que abra el fichero 'http://localhost/proyectoManu/pdf/NONONO.pdf' en el directorio donde se está ejecutando el programa en ese momento.

¡Ojo! Se trata del fichero 'http://localhost/proyectoManu/pdf/NONONO.pdf'. Eso quiere decir que Perl NO va a hacer una conexión HTTP para conseguir el fichero, sino que va a intentar abrir un fichero que comienza por las letras 'h', 't', 't', 'p', ':', '/', '/', etc. en el directorio local.

Lo mismo ocurre con el operador -s que usas un par de líneas más arriba: -s "http://localhost/proyecto/pdf/FICH1.pdf" siempre vale 0 porque el fichero "http://localhost/proyecto/pdf/FICH1.pdf" no existe en el directorio.

Perl NO hace conexiones HTTP de forma automática.

Si se trata de acceder a ficheros que están en tu mismo sistema informático, en tu mismo sistema de ficheros, entonces te vale con poner la ruta completa (o relativa) a esos ficheros.

Por ejemplo:
open(OUTFILE,"<../PDF/fichero1");

Otra cosa distinta es que necesites acceder a ficheros que están fuera de tu sistema informático. Si el protocolo para acceder a ellos puede ser el HTTP, puedes usar el módulo LWP::Simple (o muchos otros) para hacerlo. Por ejemplo:

my $pdf = get('http://servidor_externo/proyectoManu/pdf/NONONO.pdf');

(Si en lugar de 'servidor_externo' se trata de 'localhost', entonces nos estamos refiriendo a nuestro propio sistema informático, por lo que, normalmente, no será necesario hacer una petición HTTP, ya que con un simple open() podremos acceder al fichero NONONO.pdf, con tan solo indicar la ruta hacia él.)

manu8c · 2011-04-03 11:31 @521

Hola, gracias por la respuesta.

Me ha quedado muy claro. Definitivamente he usado el método open(), ya que el sistema solo accederá al pdf que tenga en él.

Entonces, ahora con

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $pdf = get('http://servidor_externo/proyectoManu/pdf/NONONO.pdf');

tengo el pdf en la variable $pdf.

¿Cómo hago para que el usuario lo pueda descargar?
He probado con:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

print 'Content-Type:application/octet-stream; name= "" \r\n';

print 'Content-Disposition: attachment;name ""  \r\n\n';

Pero no sé cómo usarlo. Ya que el fichero lo tengo ya y no necesito un 'name'.

Gracias de nuevo por tu tiempo.

explorer · 2011-04-03 14:41 @654

Si vas a usar el método del open(), no necesitas hacer lo del get().

Entonces, te lees el pdf con el open(), binmode(), read() (o <>), close() a la variable $pdf.

Luego, como estás usando el módulo CGI, puedes agregar las cabeceras necesarias para que el navegador entienda que va a recibir un fichero PDF y que quieres, preferentemente, que lo guarde a disco:

(no probado)

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $cgi = CGI->new();
 
print $cgi->header(
    -type        => 'application/pdf',                       # vamos a enviar un PDF
    -Disposition => 'attachment; filename="fichero.pdf"',    # nombre recomendado para guardarlo en disco
);
 
binmode STDOUT;    # activamos la salida estándar en modo binario
 
print $pdf;        # ¡Bumm!, el pdf sale

manu8c · 2011-04-03 21:00 @916

Bueno, dejo el código funcionando.

Lo comentado son pruebas que no han funcionado. Algunas no sé por qué.

Mañana haré que en vez de leer todo el fichero con un número grande, vaya leyendo hasta que encuentre EOF.

Gracias por toda la ayuda prestada.

Preguntaría por el módulo DBD::Oracle para otra cosa, pero me he dado por vencido con él y con Oracle en general.

Bueno, dejo el código.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!"C:\xampp\perl\bin\perl.exe"  
 
 
use DBI;
use CGI;
my $cgi = CGI->new();
my %FORM = $cgi->Vars;
 
 
open(PDF,"C:/xampp/htdocs/proyectoManu/PDF/NONONO.pdf");
 
#open(PDF,"http://localhost/proyectoManu/PDF/NONONO.pdf"); Ya sabia que no funcionaba
#open open(PDF,"../NONONO.pdf");
##open open(PDF,"<../NONONO.pdf");
 
 
binmode PDF;
 
$out='';
read (PDF,$out,10000005);
close(PDF);
 
print $cgi->header(
     -type        => 'application/pdf',                       # vamos a enviar un PDF
     -Disposition => 'attachment; filename="fichero.pdf"',    # nombre recomendado para guardarlo en disco
);
     
binmode STDOUT;    # activamos la salida estándar en modo binario
     
print $out;
 

explorer · 2011-04-04 03:23 @182

Otra forma: usando el operador -s puedes saber el tamaño del fichero.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

my $fichero_pdf = 'C:/xampp/htdocs/proyectoManu/PDF/NONONO.pdf';
 
open(PDF, $fichero_pdf);
binmode PDF;
my $out;
read (PDF, $out, -s $fichero_out);   # Leemos todo el fichero
close(PDF);

Sobre el tema del Oracle: la experiencia dice que hay que usar el intérprete perl y el módulo DBD::Oracle que trae en la propia distribución de Oracle.

manu8c · 2011-04-04 10:58 @499

El tema es que se supone que Oracle viene instalado. Pero poniendo # C/Perl/bin/perl.exe
Me dice que no encuentra el módulo.

Entonces uso, como uso en todos los CGI, # C/XAMPP/Perl/bin/perl.exe e intento instalar el módulo DBD::Oracle con ppm dándome el siguiente error.

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

Cant locate object method 'rvalidate' via package "PPM::XML::PPD::html at C:/xampp/perl/site/lib/PPM.pm line 1682, <> line 2.

He intentado de mil maneras, pero no me ha sido posible.

Al principio tenía montado todo el proyecto en Mac OS y lo migré todo a Windows debido a que no pude lanzar un servidor Oracle con la consola. Cuando lo migro, instalo Oracle 11, 10, y 9. Y al final consigo hacer que el 9 vaya en XP. Y cuando lo tengo subido no consigo acceder con Perl. Vamos, un caos.

El proyecto en sí, es un generador de reportes automático, y sobre bases de datos MySQL y PostgreSQL funciona bien. El problema es Oracle, pero bueno...

Gracias por la ayuda.

Edito: ahora que leo bien tu mensaje: ¿El módulo DBD que trae el propio Oracle? ¿Me puedes explicar un poco más?

explorer · 2011-04-04 11:54 @537

En los últimos Oracle que instalé en Windows, había una carpeta perl/ dentro de la carpeta de Oracle. Y allí estaba tanto el intérprete como los módulos, entre ellos el DBI y el DBD::Oracle. Hice una prueba, consistente en escribir un programa mínimo que abriese una comunicación con nuestra base de datos, y hacer alguna consulta.

Para hacerlo funcionar, hay que asegurarse de que accedemos al intérprete (la variable de entorno %PATH% tiene una ruta a perl/bin/, y el intérprete es capaz de localizar los módulos y librerías (se puede usar la variable de entorno %PERL5LIB% está correctamente puesta, o indicamos la ruta con -I al perl; o quizás no sea necesario. Ejecutando perl -V podemos ver las rutas en donde está buscando los módulos. Si aparece la ruta donde están los módulos que trae Oracle, entonces no hay que hacer nada).

Pero eso no es todo...

En estos foros hemos comentado varias veces sobre Oracle. Usa el sistema de búsqueda.

En Google encontrarás documentación al respecto. Verás que la opción de instalar desde cero en Windows se hace muy complicada, pues necesitas tener instalada el SDK completo y un compilador de C y otras herramientas (ver fichero README de la distribución DBD::Oracle).

La solución, entonces, era instalar, con ppm, la versión ya compilada, de DBD::Oracle, pero la empresa ActiveState ya no lo distribuye, porque Oracle eliminó la posibilidad de distribuir los clientes de Oracle junto con él (encontrarás más explicaciones sobre esto en la web de ActiveState). Bueno, esto es lo que pasaba hace un par de años. Quizás la situación haya cambiado.

Hoy en día, se recomienda no usar Oracle. MySQL, PostGreSQL, MariaDB tienen potencia suficiente para dar respuesta a buena parte de los requerimientos de casi cualquier empresa. Y las empresas que no tienen más remedio que usar Oracle, casi siempre tienen el dinero suficiente para contratar con Oracle la instalación de una versión de Perl.

manu8c · 2011-04-04 16:55 @746

Gracias por toda la ayuda prestada.

Voy a acabar con todos los retoques del proyecto y si tengo tiempo me pondré con MariaDB. He leído los documentos de Oracle y pinta imposible. Bueno, así podré explicar por qué no he usado Oracle.

De nuevo, gracias por todo.

manu8c · 2011-04-13 12:46 @574

Hola de nuevo, al final he tenido que dejar Oracle, aunque gracias a ti, lo he implementado para MariaDB. Curioso el tema de MariaDB...

Bueno a lo que voy. He hecho que el sistema dé a elegir al usuario si desea salvar el archivo en xls o pdf.
El archivo XLS lo creo sin ningún problema, el problema es otra vez lo mismo de antes.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!"C:\xampp\perl\bin\perl.exe"  
 
use CGI qw(:standard);
 
my $q    = new CGI;
my %FORM = $q->Vars;
 
$name = $FORM{'xls'};
 
open( FILE, "C:/xampp/htdocs/proyectoManu/PDF/$name.xls" )
    or die "File won't open: $!";
 
binmode FILE;
 
$out = '';
read( FILE, $out, -s FILE );
close(FILE);
 
print $q- header(
    -type        => "application/vnd.ms-excel",
    -Disposition => 'attachment; filename="fichero.xls"'
);
 
binmode STDOUT;                        # activamos la salida estándar en modo binario
 
print $out
 
 

Buscando por Internet he encontrado que el tipo de cabecera tiene que ser application/vnd.ms-excel. Pero cuando ejecuto el CGI lo que me da la opción de guardar el el código fuente de la página en formato Perl.

Otra cosa, ¿existe alguna página que esté todo Perl documentado aparte de CPAN?

Por ejemplo, no he sido capaz de encontrar los tipos de posibles cabeceras que utiliza el paquete CGI.

Gracias de nuevo.

explorer · 2011-04-13 13:03 @585

La línea 19 está mal... falta un '>'.

Las cabeceras que usa CGI son las típicas del protocolo HTTP, así que te vale con: a) mirar el código fuente de CGI, o b) visitar la página de Wikipedia sobre el protocolo HTTP, pero lo que buscas está en List of HTTP header fields.

heguirola · 2012-05-09 10:57 @498

Otra cosa distinta es que necesites acceder a ficheros que están fuera de tu sistema informático. Si el protocolo para acceder a ellos puede ser el HTTP, puedes usar el módulo LWP::Simple (o muchos otros) para hacerlo. Por ejemplo:

my $pdf = get('http://servidor_externo/proyectoManu/pdf/NONONO.pdf');

heguirola · 2012-05-09 11:26 @518

Hola, soy nuevo en esta materia, pero quisiera saber ¿cómo trabajo con el lwp::simple,
La función get($url); ?

¿¿Qué me retorna eso??

explorer · 2012-05-09 16:11 @716

Bienvenido a los foros de Perl en Español, heguirola.

No entiendo la pregunta, ya que tu mismo has dado la respuesta en el mensaje anterior.

Más información en LWP::Simple.

Publicidad

Socializa