Thread Ausgabe von PDF::Create in Variable (7 answers)
Opened by bianca at 2009-12-26 17:10

bianca
 2009-12-26 17:10
#129722 #129722
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Hi!
Benutze PDF::Create zur Erzeugung kleinerer PDF's. Der Parameter 'filename' läßt entweder einen Dateinamen oder '-' als STDOUT zu. Ich möchte gern das fertige PDF in einer Variable haben, da ich in einer sub aus einer Tabelle ein PDF machen möchte.

Mein Versuch:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my %tabelle;
print "Ergebnis:\n" .  &maketab2pdf (\%tabelle) . "\n";

sub maketab2pdf {
        use PDF::Create;
        my $output = '';
        close (STDOUT);
        open (STDOUT, '>', \$output);
        my $pdf = new PDF::Create       (
                'filename'     => '-',
                'Version'      => 1.2,
                'Author'       => 'unbekannnt',
                'Title'        => 'Beispiel',
                'CreationDate' => [ localtime ],
                );
        my $root = $pdf -> new_page ('MediaBox' => $pdf -> get_page_size ('A4'));
#[PDF Erzeugung....gekürzt]
        return $output;
}


Ergebnis: Die sub liefert nichts zurück, keine Fehlermeldungen, keine Ausgabe in einer Datei, keine ungewollte Ausgabe auf STDOUT.
Eine Gegenprüfung durch Einsetzen eines Dateinamens in 'filename' zeigt, dass alles korrekt arbeitet. Nur eben halt die Ausgabe über Variable scheint nicht zu klappen.

Was mache ich falsch?
Vielen Dank

EDIT: Paar Tabs entfernt
Last edited: 2009-12-26 17:11:53 +0100 (CET)
10 print "Hallo"
20 goto 10

View full thread Ausgabe von PDF::Create in Variable