llamando salida a la creación de archivos con extensiones xls, pdf, doc.
Con gran éxito pude usar el módulo Spreadsheet::WriteExcel y SimpleExcel descrito en los foros.
Estuve probando el módulo para la creación de la salida pdf, intenté utilizar el módulo PDF::Report junto con el PDF::API2 y el código descrito también por estos módulos y mi salida fue a la mitad puesto que sí genero el archivo PDF, pero el contenido en blanco.
Y para la salida doc (Archivo de Microsoft Word), no tengo la más remota idea de qué módulo usar; intenté con Win32:OLE, pero estoy más perdido que una batalla sin municiones.
Agradecería alguna pista, dejo el código "copiado" (odio la palabra pero es la realidad) del PDF y si tienen algún ejemplo de la creación de archivos Word, o una liga de algún modulo, mucho se los he de agradecer.
El pero más grande que tengo es que estoy utilizando IIS y Activeperl.
No obstante han funcionado los ejemplos de este sitio.
Gracias por todas las atenciones.
Using perl Syntax Highlighting
#!\perl\bin -l
use strict;
my $datos = '/Inetpub/wwwroot/dat/extractor/ejemplo.pdf';
use PDF::Report;
my $pdf = new PDF::Report(
PageSize => 'letter',
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, "> $datos") or die "ERROR: No puedo escribir en $datos: $!\n";
print PDF $pdf->Finish();
close(PDF);
exit;
use strict;
my $datos = '/Inetpub/wwwroot/dat/extractor/ejemplo.pdf';
use PDF::Report;
my $pdf = new PDF::Report(
PageSize => 'letter',
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, "> $datos") or die "ERROR: No puedo escribir en $datos: $!\n";
print PDF $pdf->Finish();
close(PDF);
exit;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
