Perl en Español

  1. Home
  2. Tutoriales
  3. Foro
  4. Artículos
  5. Donativos
  6. Publicidad
 

Como generar archivos PDF con Perl

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Básico
Mensaje Mie Mar 01, 2006 5:52 pm
rookie
Perlero Nuevo
Perlero Nuevo
Registrado: 01 Mar 2006
Mensajes: 39
Como generar archivos PDF con Perl Responder citando

Saludos.
he investigado en internet acerca de como generar reportes en archivos con formato PDF con un programa de PERL, como por ejemplo, realizar una consulta a una base de datos y guardar la salida de la consulta en un archivo PDF, todo desde PERL.

No he encontrado mucho, pero ojala alguien de ustedes me alumbre el camino, solo necesito saber si se puede hacer ??? y donde puedo encontrar informacion al respecto.

Saludos y gracias por su ayuda.
Mensaje Mie Mar 01, 2006 6:00 pm
creating021
Vive para Perl en Español
Vive para Perl en Español
Registrado: 23 Feb 2006
Mensajes: 478
Ubicación: Frente al monitor
Responder citando

Creo que esto te servira
http://search.cpan.org/~areibens/PDF-API2-0.51/lib/PDF/API2.pm

Saludos
Mensaje Mie Mar 01, 2006 6:50 pm
rookie
Perlero Nuevo
Perlero Nuevo
Registrado: 01 Mar 2006
Mensajes: 39
Responder citando

Gracias por el tip.
Checare el contenido, hare algunas pruebas y ya les contare como me fue.
Gracias y hasta luego!!
Mensaje Jue Mar 02, 2006 5:43 pm
explorer
Moderador
Moderador
Registrado: 24 Jul 2005
Mensajes: 4082
Ubicación: Valladolid, España
Re: generar archivos PDF con perl... se puede?? Responder citando

Aquí (CPAN) me salen 284 módulos...
Quizás uno de los más sencillos sea PDF::Report. Aquí hay unos ejemplos. Y aquí otro en directo:
Código:
use PDF::Report;

my $pdf = new PDF::Report(
                          PageSize => 'A4',
                          PageOrientation => 'Portrait'
);

$pdf->newpage(1);
$pdf->setFont('Helvetica-bold');
$pdf->setSize(16);
my ($width, $height) = $pdf->getPageDimensions();

$pdf->centerString(0, $width, $height-40, "Párrafo");

$pdf->setFont('Helvetica');
$pdf->setSize(10);

my $text1= "texto de prueba";
my $text2= "Segundo texto de prueba";
my $text3= "Tercer texto de prueba";

$pdf->addParagraph($text1, 30, $height-70, $width-60, 30, 25, 10);
$pdf->addParagraph($text2, 30, $height-100, $width-60, 20, 25, 10);
$pdf->addParagraph($text3, 30, $height-120, $width-60, 20, 25, 10);

open(PDF, "> ejemplo.pdf") or die "ERROR: No puedo escribir en ejemplo.pdf: $!\n";
print PDF $pdf->Finish();
close(PDF);
 
exit;
Publicar nuevo tema   Responder al tema    Foros de discusión -> Básico Todas las horas son GMT - 6 Horas
Página 1 de 1



Powered by phpBB © 2001, 2005 phpBB Group