Ausgabe von PDF::Create in Variable (gelöst) (Installation und Konfiguration)

[thread]14418[/thread]

Ausgabe von PDF::Create in Variable [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+8 replies

bianca

2009-12-26 17:10

User since
2009-09-13
6977 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 )

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

+5 replies
GwenDragon

2009-12-26 18:31

User since
2005-01-17
14533 Artikel
Admin1

PDF-Create gibt nur an Dateihandles aus, so steht es in der Doku.
Ausgabe an Puffervariable ist nicht vorgesehen.
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +4 replies
- bianca
  
  2009-12-26 18:38
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  2009-12-26T17:31:12 GwenDragon
  PDF-Create gibt nur an Dateihandles aus, so steht es in der Doku.
  Ausgabe an Puffervariable ist nicht vorgesehen.
  
  Jau, danke für die Wiederholung der Doku.
  Und es gibt keine Möglichkeit, STDOUT temporär in eine Variable umzuleiten?
  
  Ist denn mein
  close (STDOUT);
  open (STDOUT, '>', \$output);
  kompletter Unfug oder nur für das Modul nicht verwendbar?
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - havi
    
    2009-12-26 19:07
    
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    pipe
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
    - +2 replies
    - bianca
      
      2009-12-27 09:27
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      2009-12-26T18:07:34 havi
      pipe
      
      Danke für den Tipp. Hab jetzt mal ne Stunde gegoogelt aber kein einziges Beispiel gefunden, wo STDOUT mit open2 oder open3 umgeleitet wird.
      Stattdessen hab ich aber auf perldoc.perl.org etwa in der Mitte das hier gefunden:
      
      Quote
      Since v5.8.0, perl has built using PerlIO by default. Unless you've changed this (i.e. Configure -Uuseperlio), you can open file handles to "in memory" files held in Perl scalars via:
      
      1. open($fh, '>', \$variable) || ..
      Though if you try to re-open STDOUT or STDERR as an "in memory" file, you have to close it first:
      
      1. close STDOUT;
      2. open STDOUT, '>', \$variable or die "Can't open STDOUT: $!";
      
      Das bestärkt mich in der Annahme, dass es mit dem einfachen open() machbar sein müsste.
      
      Hab es mal vereinfacht in ein separates Testscript gepackt wie folgt:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      #!/usr/bin/perl -w use strict; use diagnostics; use warnings; my $output; open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; #open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!"; open STDOUT, '>',\$output or die "Can't redirect STDOUT: $!"; print "stdout 1\n"; open STDOUT, ">&", $oldout or die "Can't dup \$oldout: $!"; print "stdout 2\n"; print "\$output = \'$output\'\n";
      
      Die Variante open STDOUT, '>', "foo.out" klappt ausgezeichnet. Bei der jetzt aktivierten Variante open STDOUT, '>',\$output bekomme ich folgende Ausgabe:
      
      Code: (dl )
      
      1 2 3
      
      Uncaught exception from user code: Can't redirect STDOUT: Bad file descriptor at stdout.pl line 9. at stdout.pl line 9
      
      Mein Perl:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      This is perl, v5.8.7 built for MSWin32-x86-multi-thread (with 7 registered patches, see perl -V for more detail) Copyright 1987-2005, Larry Wall Binary build 813 [148120] provided by ActiveState http://www.ActiveState.com ActiveState is a division of Sophos. Built Jun 6 2005 13:36:37
      
      Liegt das jetzt ein meinem Perl, dass ein open() in eine Variable scheitert oder ist die o.a. Doku falsch?
      
      Bitte nochmal um Hilfe.
      
      EDIT: Zitat vervollständigt
      Last edited: 2009-12-27 09:32:35 +0100 (CET)
      10 print "Hallo"
      20 goto 10
      - bianca
        
        2009-12-27 09:44
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        HAT SICH ERLEDIGT.
        
        Hier ist die funktionierende Lösung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        #!/usr/bin/perl -w use strict; use diagnostics; use warnings; my $output; open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; close STDOUT; open STDOUT, '>',\$output or die "Can't redirect STDOUT: $!"; print "stdout 1\n"; open STDOUT, ">&", $oldout or die "Can't dup \$oldout: $!"; print "stdout 2\n"; print "\$output = \'$output\'\n";
        
        Hatte das close STDOUT in 8 vergessen.
        
        EDIT: Bemerkenswert finde ich, dass man oben nach der Umleitung close'en muss und unten bei der Rückeinstellung nicht.
        Last edited: 2009-12-27 09:45:59 +0100 (CET)
        10 print "Hallo"
        20 goto 10
+2 replies

bianca

2009-12-27 13:36

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

Bin schon ziemlich weit mit dem Teil und poste mal die Beschreibung verbunden mit der Frage, ob es dafür vielleicht Verwendung als Modul gibt:

Code: (dl )

#
# Erzeugt aus einer als Hash übergebenen Tabelle ein DIN A4 PDF
#
# Aufbau der zu übergebenden Tabelle:
# [xxx] in eckigen Klammern sind Variablen, ohne eckige Klammern sind Konstanten
#
# $tabelle{[zeile]}{[spalte]} = [inhalt]
#
# Zusätzlich können folgende Parameter nach Wunsch optional angegeben werden:
# ===========================================================================
# $tabelle{log} = [pfad/datei]				# Dateipfad und -name für ein Logfile (wenn nicht angegeben, wird kein Logfile erzeugt)
# $tabelle{author} = [name]					# Angabe des 'Authors' in den Header-Infos
# $tabelle{title} = [text]					# Angabe des 'Title' in den Header-Infos
# $tabelle{randlinks} = [pixel]				# Für einen geeigneten Lochungsrand ist 40 empfehlenswert
# $tabelle{randrechts} = [pixel]			# Für einen ansehnliches Bild ist 15 empfehlenswert
# $tabelle{cellpadding} = [pixel]			# Innenabstand des Zelleninhalts zum Zellenrand
# $tabelle{kopflinks} = [inhalt]			# Überschrift links oben
# $tabelle{kopfrechts} = [inhalt]			# Überschrift rechts oben
# $tabelle{stretchhor} = [0|1]				# Horizontale Streckung auf max. Seitenbreite, wenn Inhalt schmal 0=nein, 1=ja
# $tabelle{align[spalte]} = [center|right]	# Gibt an, ob die Spalte zentriert oder rechtsbündig sein soll, Voreinstellung ist linksbündig
#
# Aufruf: my ($seiten,$pdf) = &maketab2pdf (\%tabelle);
# =======
#
# Rückgabe:
# =========
# Array mit zwei Werten:	[0] = Anzahl Seiten wenn Wert auf Regex /^\d+$/ matcht; Fehlermeldung wenn nicht
#							[1] = Das PDF als String, wenn kein Fehler aufgetreten ist, siehe Beispiel unten
#
# Beispiel:
# =========
# my %tabelle;
# $tabelle{1}{1} = '1.';		$tabelle{1}{2} = 'Montag';		$tabelle{1}{3} = '12:45';		$tabelle{1}{4} = '15:45';
# $tabelle{align1} = 'right';
# $tabelle{align3} = 'center';
# $tabelle{align4} = 'center';
# my ($seiten,$pdf) = &maketab2pdf (\%tabelle);
# if ($seiten =~ /^\d+$/) { print "PDF mit $seiten Seiten:\n$pdf\n"; }
# else { print "FEHLER: $seiten\n"; }
#

Im übrigen die Frage, ob jemand Lust hat, weiter mit daran zu arbeiten.
Was ich unbedingt noch einbauen möchte, derzeit aber nur grobe Vorstellungen von habe:
1. Verarbeitung von Zeilen, die breiter als die Tabelle sind (Zeilenumbrüche innerhalb von Zellen trotz gleichmäßiger Spaltenbreiten)
2. Verarbeitung von Tabellen über mehr als eine Seite hinweg (Definition Kopfzeilen etc.)

10 print "Hallo"
20 goto 10

rosti

2011-10-23 19:46

User since
2011-03-19
3194 Artikel
BenutzerIn

Idee von heute morgen:

untenstehende Funktion erzeugt die Parameterliste für die PDF::Create::string()-Method:

Code (perl): (dl )

# Record-Hilfsfunktion
sub recParams{
        my $rec = shift; # {artnr, arttitle, anz, preis, xpreis}
        my $ypos = shift;
        # Hashref für den Return, Parameter für die Spalten
        my $params = {
                1 => [9, 40, $ypos, "$rec->{arttitle}/$rec->{artnr}"],
                2 => [9, 310, $ypos, $rec->{anz}, 'r'],
                3 => [9, 400, $ypos, $rec->{preis}, 'r'],
                4 => [9, 490, $ypos, $rec->{xpreis}, 'r'],
        };
        return $params;
}

Im Beispiel gibt es 4 Spalten mit entsprechenden Positionen und Ausrichtung. Zum Erzeugen einer Tabellenzeile ist dann eine Schleife über diese 4 Spalten zu legen:

Code (perl): (dl )

# Tabelle mit der Bestellung, Table header
my $linepos = 550;
my $cols = recParams(
        {
                artnr => 'Artikelnummer',
                arttitle => 'Artikelbezeichnung',
                anz => 'Anzahl',
                preis => 'Einzelpreis '.pack("C", 128),   # EURO
                xpreis => 'Summenpreis '.pack("C", 128),
        },
        $linepos
);
# nun alles in einer Schleife über die 4 Spalten
foreach my $col(1,2,3,4){
        $page->string($f1, @{$cols->{$col}});
}
# damit ist ersteinmal der Tabellenheader erzeugt

Erzeugen der einzelnen Zeilen, Beispiel:

Code (perl): (dl )

# Tabelle der Rechnung erstellen
foreach my $ord(@$order){
        my $xpreis = $ord->{anz} * $ord->{preis};
        $ord->{xpreis} = $xpreis;
        my $cols = recParams($ord, $linepos);

        # nun alles in einer Schleife über die 4 Spalten
        foreach my $col(1,2,3,4){
                $page->string($f1, @{$cols->{$col}});
        }

        $linepos -= 12;
        $sumpreis += $xpreis;
}

Anstelle der For-Schleife ist hier möglicherweise eine Callbackfunktion geschickter, sofern die Records bereits in der Datenquelle über eine Schleife gelesen werden (DB-Abfrage, fetchrow_hashref). Das hängt jedoch vom Gesamtprogramm ab, ob eine Callbackfunktion gerufen oder ein Array übergeben wird

In der For-Schleife bzw. Callbackfunktion musst Du nur noch die $linepos abfragen, wenn die einen bestimmten Wert erreicht hat, wird eine neue A4-Seite erzeugt.

Einen Table-Footer erzeugst Du zum Schluss ganz ähnlich....

Also: Meine PDF-Lieferscheine habe ich fertig ;)

Viele Grüße!

View all threads created 2009-12-26 17:10.