PDF::API2 Serienpdf erzeugen (gelöst) (Fragen zu Perl-Modulen)

[thread]20322[/thread]

PDF::API2 Serienpdf erzeugen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+9 replies
provisoft

2017-07-07 11:22
User since
2012-04-04
29 Artikel
BenutzerIn
Hallo ...

ich erzeuge mit dem Modul PDF::API2 öfter PDF-Files.
Klappt alles ohne Probleme.
Nun möchte ich per While Schleife Pdf erzeugen und dies gleich per Mail verschicken.
Beim ertsen Durchgang klappt das, beim zweiten scheitere ich mit dem Fehler:
Can't call method "val" on an undefined value at D:/Dev/Perl/perl/site/lib/PDF/API2/Resource.pm line 64.
Muss ich irgendetwas initialisieren ? habe schon alles Mögliche versucht.

Beispiel von Code-Schnipsel anbei...
Der Fehler tritt bei ersten Schreiben einer Zeile in zweiten Durchlauf der Schleife auf ....
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

while (@a = $A->fetchrow_array) { #------------------------- # File öffnen #----------------------------- $pdfdir = $zeile[6]; $pdfpath = $zeile[5]; $filename = "xxxxxxx_" . $a[0] . ".pdf"; $pdfname = $filename; &newPage_Quer(); &head(); $seite = 1; $hoch = "490"; $abda = "30"; &writeLine ( $abda, $hoch, "Helvetica", 12, $a[0], "left"); $hoch = $hoch - 20; &writeLine ( $abda, $hoch, "Helvetica", 12, "xxxxxxxx", "left"); $pdf->saveas($pdfpath . $pdfname); $pdf->end; if ($a[1] ne '') { &sendEmail($a[1],$filename,$a[0]); }; };
Last edited: 2017-07-07 13:25:27 +0200 (CEST)
- +8 replies
- Muffi
  
  2017-07-07 14:01
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Naja, schöner Code sieht anders aus.
  Aber gut, hier aus der Doku:
  
  Code: (dl )
  
  1 2
  
  $pdf->saveas($file) Save the document to $file and remove the object structure from memory.
  
  Klingt nich gut ein Objekt aus dem Speicher zu räumen um dann wieder was draufzuschreiben.
  Allerdings ist dein writeLine auch so unglücklich designed, dass man nicht sieht was es eigentlich tut. Kann ja genausogut auf Konsole schreiben.
  
  Das PDF-Objekt scheint auch irgendwo aus dem Nichts zu kommen. Vielleicht legts auch newPage_Quer() global an. Aber auch das sieht man ihm nicht an.
  
  Als kleiner Tipp: Eine Funktion in der Mathematik ist etwas ohne Seiteneffekte. Parameter rein, Parameter raus. Nicht lesen von irgendwoher, nicht global irgendwas. Arbeiten nur mit dem was übergeben wurde. Wenn du deinen Funktionen wenigstens das $pdf übergeben würdest müsste man nicht so viel raten.
  Last edited: 2017-07-07 14:05:27 +0200 (CEST)
  1 + 1 = 10
  - +7 replies
  - provisoft
    
    2017-07-07 14:06
    
    User since
    2012-04-04
    29 Artikel
    BenutzerIn
    
    stimmt ...
    Mit wechem Befehl kann ich das machen ?
    - +6 replies
    - provisoft
      
      2017-07-07 14:20
      
      User since
      2012-04-04
      29 Artikel
      BenutzerIn
      
      Hab versucht den Ablauf zu skizzieren.
      
      sub newPage_Quer()
      {
      
      $pdf=PDF::API2->new('pagesize'=>'a4','compression'=>0);
      
      $f1=$pdf->corefont('Helvetica',1);
      $f2=$pdf->corefont('Times-Roman',1);
      $page = $pdf->page;
      $page->mediabox(842,595);
      };
      
      Hier wird das PDF angelegt.
      Das geht noch beim zweiten Durchlauf.
      Bei Schreiben kommt dann der Fehler ....
      - +5 replies
      - Linuxer
        
        2017-07-07 22:08
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        In Deinen Schnippseln stecken so viele Unbekannte, dass da nur sehr schwer zu raten ist.
        
        Gerade die undurchsichtige Art und Weise Variablen querbeet zu benutzen, macht sowas nicht wirklich wartungsfreundlicher.
        
        Ich kann nur sagen, ein sehr einfaches Beispielskript, das ich mir gerade geschrieben habe, funktioniert jedenfalls. Mit einer Schleife kann ich mir drei PDF-Dokumente mit einfachem Text drucken ohne das eine Meldung kommt.
        
        Die Vermutung liegt daher nahe, dass irgendwo eines Deiner Objekte verloren geht und beim zweiten Durchlauf somit nicht mehr verfügbar ist.
        Das impliziert jedenfalls die Meldung:
        
        Quote
        Can't call method "val" on an undefined value at D:/Dev/Perl/perl/site/lib/PDF/API2/Resource.pm line 64.
        
        Ich habe mal in das hier installierte Modul PDF::API2::Resource reingesehen; eine Methode val() wird da nur einmal in Zeile 67 aufgerufen (Zeile wahrscheinlich wegen unterschiedlicher Modulversion unterschiedlich) und zwar in der Methode name.
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        sub name { my $self = shift @_; if (scalar @_ and defined $_[0]) { $self->{'Name'} = PDFName($_[0]); } return $self->{'Name'}->val(); }
        
        Wilde Vermutung:
        Anscheinend ist beim zweiten Durchlauf kein Name gesetzt, wird aber dennoch aus irgendeinem Grund abgerufen.
        Der Wert von $self->{'Name'} ist nicht definiert, und am Ende wird val darauf angewendet, was dann zu der Meldung führt.
        
        Wo genau die Unstimmigkeit liegt, ist mangels Kenntnis des Codes nicht zu erraten.
        
        So, genug geraten. Viel Glück.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +4 replies
        
        provisoft
        
        2017-07-09 11:35
        
        User since
        2012-04-04
        29 Artikel
        BenutzerIn
        
        Du hast bestimmt Recht.
        Kann bloss die Stelle nicht finden. Ist nicht viel dahinter.
        Mit newPage_Quer erzeuge ich ein neues Pdf (siehe unten).
        In head wird bloss der Kopf und Fussbereich geschrieben.
        mit write_line schreibe ich die Zeilen mit Parametern für Größe etc ..
        
        Beim zweiten Durchlauf mache ich nichts anderes als im ersten.
        Das heisst für mich, dass beim saveas irgendetwas gelöscht wird, dass er braucht.
        
        sub newPage_Quer()
        {
        
        $pdf=PDF::API2->new('pagesize'=>'a4','compression'=>0);
        
        $f1=$pdf->corefont('Helvetica',1);
        $f2=$pdf->corefont('Times-Roman',1);
        $page = $pdf->page;
        $page->mediabox(842,595);
        };
        
        +3 replies
        
        Linuxer
        
        2017-07-09 12:37
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Tja, wenn Du das schon nicht findest, obwohl Du den Code vorliegen hast, dann können wir noch weniger finden, da wir den Code gar nicht sehen.
        
        Sorry, ich habe mein möglichstes bereits getan.
        
        Allgemein:
        
        Gehe weg von der Art und Weise, mit Funktionen irgendwelche ominösen (globalen) Variablen zu befüllen und darauf zu vertrauen, dass die beim nächsten Durchlauf schon noch das korrekte enthalten.
        
        Verwende use strict; und use warnings;, falls Du das noch nicht tust.
        
        Verwende die von Muffi bereits erwähnte Fähigkeiten von Funktionen, Argumente entgegen zu nehmen und auch Werte zurückzugeben.
        
        Deklariere Variablen für den Bereich, wo sie gebraucht werden.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        provisoft
        
        2017-07-09 15:35
        
        User since
        2012-04-04
        29 Artikel
        BenutzerIn
        
        Danke für die Hilfe.
        Du hast Recht manches ist nicht so ganz sauber ...
        Wenn man Funktionen benutzt, die nicht alle von einem selber stammen ...
        
        Aber Du hast mich auf die richtige Fährte gebracht.
        Eine Variable die den Font betrifft war auskommentiert.
        Jetzt läuft es ...
        
        Crian
        
        2017-07-10 09:55
        
        User since
        2003-08-04
        5866 Artikel
        ModeratorIn
        
        Das schreit aber danach, sauber refakturiert zu werden. Ansonsten wird die spätere Wartung des ganzen zur Qual.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite

View all threads created 2017-07-07 11:22.