[erlug] PDF Dokument-Generierung mit Perl

Moin zusammen,
mit Guido hatte ich mich gestern über die Erstellung von PDF Dokumenten unterhalten und dabei eine bei uns in der Firma häufig praktizierte Methode erwähnt. Vielleicht ist dieses Verfahren auch für andere in der Liste von Interesse, daher schreibe ich mal in die Liste :-) 

Man nehme:
  - Perl
  - die Bibliothek PDF::API2
  - ein Muster-PDF als Vorlage
und fülle das PDF dann mit beliebigen Daten aus. Das kann dann in etwa so aussehen: 

#!/usr/bin/perl
use strict;
use warnings;

use PDF::API2;

# Vorlage lesen
my $srcpdf = PDF::API2->open('vorlage.pdf');
delete $srcpdf->{forcecompress};
my $font = $srcpdf->corefont('Helvetica',1);

# neues PDF erstellen
my $pdf = PDF::API2->new;
my $font = $pdf->corefont('Helvetica',1);

# erste Seite von Vorlage kopieren
my $page=$pdf->importpage($srcpdf,1,0);
$page->mediabox(595,842);

my $txt = $page->text;
$txt->compress;
$txt->font($font, 14);

# Eintragen eines Textes in das PDF
$txt->translate(200,665);
$txt->text('Dieser Text soll hier rein');

# PDF ausgeben (in diesem Fall: STDOUT)
print $pdf->stringify();
$pdf->end();
...zugegebenermaßen auf den ersten Blick ein wenig erschreckend, doch fast der gesamte Code ist immer mehr oder weniger konstant, lediglich die Text-Eintragungen werden je nach Job variabel gemacht und damit sind beliebig komplexe Befüllungen fast ein Kinderspiel... 

use Perl ;-)


Grüße,

Wolfgang

--

' /\_/\ ' .print[split??,"".(($/=q|Cms)+-03467:;<=|)=~tr!C-z -B! -z!)x
'( o.o )' .$/]->[hex]foreach split qr<>,qq+1ecd039ad65b025b8063475b+||
' > ^ < ' .q<!-- Wolfgang Kinkeldei - mailto:wolfgang@xxxxxxxxxxxx -->

Other related posts: