#!\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;

#!/usr/bin/perl
use strict;
my $datos       = '/Inetpub/wwwroot/dat/extractor/ejemplo.odt';
my $imagen1= '/Inetpub/wwwroot/dat/extractor/imagen1.jpg';

use OpenOffice::OODoc;
        my $document = ooDocument(file => $datos);
        my $newparagraph = $document->insertParagraph
                        (
                        my $place,
                        position        => 'before',
                        text        => 'A new paragraph to be inserted',
                        style      => 'Text body'
                        );
                       
        $document->createImageStyle
                        (
                        "NewImageStyle",
                        properties      =>
                                {
                                'draw:luminance'        => '20%',
                                'draw:color-inversion'  => 'true'
                                }
                        );
                       
        $document->createImageElement
                        (
                        "Image1",
                        style      => "NewImageStyle",
                        attachment      => $newparagraph,
                        import    => $imagen1
                        );
                       
        $document->save;

#!/usr/bin/perl -w
use strict;
use OpenOffice::OODoc;

my $datos = '/Inetpub/wwwroot/dat/extractor/test.odt';

my $document = ooDocument(create => $datos, member => "content")
     or die "no se puede crear el archivo test.odt\n";
     
        my $content = ooDocument
                        (
                        file => $datos,
                        member => 'content'
                        );

        my $styles = ooDocument
                        (
                        file => $datos,
                        member => 'styles'
                        );
       
                       

        $content->appendParagraph
                        (
                        text => "Agregando texto con el estilo",
                        style => "BlueStyle"
                        );
        $styles->createStyle
                        (
                        "BlueStyle",
                        parent => 'Text body',
                        family => 'paragraph',
                        properties =>
                                {
                                area            => 'text',
                                'fo:color'      => rgb2oo('blue')
                                }
                        );

        $datos->save;