in bestehende pdf barcode/timestamp einfügen (Allgemeines zu Perl)

[thread]21397[/thread]

in bestehende pdf barcode/timestamp einfügen

Tags: perl5 Similar Threads

Readers: 10

Articles: hide open all | hide show old branches

+11 replies
volker.55211

2022-02-12 18:05

User since
2019-03-18
26 articles
BenutzerIn

Hallo zusammen,

ich suche eine Möglichkeit in ein bestehendes pdf einen Barcode an einer festgelegten Position einzufügen. Position ist immer frei.
- +10 replies
- Linuxer
  
  2022-02-12 19:44
  User since
  2006-01-27
  3783 articles
  HausmeisterIn
  Hallo,
  
  zur PDF-Bearbeitung könntest Du Dir mal PDF::API2 anschauen / nachinstallieren.
  
  Was ist denn mit dem Barcode?
  Muss der erst noch generiert werden?
  Oder liegt der bereits als Bild-Datei vor?
  
  edit:
  
  War mal selber neugierig und habe etwas rumexperimentiert.
  Quick'n'Dirty Resultat:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  #! /usr/bin/env perl use strict; use warnings; use 5.020; use PDF::API2; # zu bearbeitendes PDF oeffnen my $pdf = PDF::API2->open( "out/file-1.pdf" ); # gewünschte Seite auswählen my $page = $pdf->open_page(1); # barcode Bild-Datei laden my $image = $pdf->image( "test.png" ); # barcode einfuegen; Position ausprobieren $page->object($image, 100, 100); # neues PDF schreiben $pdf->save("sample.pdf");
  
  Attachments
  
  application/pdf
  sample.pdf
  
  Last edited: 2022-02-12 20:08:20 +0100 (CET)
  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!
  - +9 replies
  - volker.55211
    
    2022-02-13 14:23
    
    User since
    2019-03-18
    26 articles
    BenutzerIn
    
    Habe damit mal experimentiert. Irgendwie mache ich was falsch. Lt. metacpan gibt es einen Befehl Position. bekomme ich einen Fehler dass im API2 Modul der Befehl nicht bekannt ist.
    Was klappt ist das einfügen eines Textes, aber das auch nur am unteren Rand. Das pdf wird in Original angezeigt und ich finde dann den Text ganz unten.
    Richtig verständlich ist mir das nicht aber für den Zweck reicht es erst einmal aus.
    Barcode sollte erzeugt werden --> Befehl Barcode gibt es in API2 nur funktioniert der leider nicht mit der selben Fehlermeldung wie eben Position.
    - +3 replies
    - hlubenow
      
      2022-02-13 15:58
      
      User since
      2009-02-22
      842 articles
      BenutzerIn
      
      2022-02-13T13:23:16 volker.55211
      Lt. metacpan gibt es einen Befehl Position. ...
      --> Befehl Barcode gibt es in API2 nur funktioniert der leider nicht mit der selben Fehlermeldung wie eben Position.
      
      In Perl ist Groß- und Kleinschreibung von Bedeutung. Es muß also "position" und "barcode" heißen.
      Mach' das doch am besten so, wie Linuxer es im Posting oben gezeigt hat.
      - +2 replies
      - guest volker.55211
        
        2022-02-13 21:56
        
        Groß/Kleinschreibung hab ich beachtet, ich hab sogar den Code copy/paste behandelt. position funktioniert trotz allem nicht
        Last edited: 2022-02-14 07:40:43 +0100 (CET)
        
        hlubenow
        
        2022-02-14 14:11
        
        User since
        2009-02-22
        842 articles
        BenutzerIn
        
        Dann zeig' doch mal bitte Deinen Code (in Code-Tags), und die Fehlermeldung.
    - Linuxer
      
      2022-02-14 08:03
      
      User since
      2006-01-27
      3783 articles
      HausmeisterIn
      
      Wenn ich das richtig sehe, wird die Position, wo die Grafik eingefügt werden soll, in der Methode object() direkt angegeben.
      
      Code: (dl )
      
      $page->object($image, 100, 100);
      
      Dabei ist der Nullpunkt die untere linke Ecke. Die beiden Zahlenwerte stellen die Koordinaten dar.
      
      Ich brauchte keine Methode position() aufrufen.
      
      Edit:
      
      PS: Den Barcode in meiner Sample-Datei habe ich zuvor mit GD::Barcode erzeugt und als PNG in eine Datei schreiben lassen.
      Last edited: 2022-02-14 08:05:29 +0100 (CET)
      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
    - Linuxer
      
      2022-02-14 18:02
      
      User since
      2006-01-27
      3783 articles
      HausmeisterIn
      
      Hallo,
      
      und jetzt habe ich es nochmal getestet.
      
      Diesmal habe ich mit PDF::API2's Methode barcode() den Barcode direkt erzeugt; die hatte ich gestern übersehen.
      
      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
      
      #! /usr/bin/env perl use strict; use warnings; use 5.020; use PDF::API2; # zu bearbeitendes PDF oeffnen my $pdf = PDF::API2->open( "out/file-1.pdf" ); # gewünschte Seite auswählen my $page = $pdf->open_page(2); # Barcode generieren my $barcode = $pdf->barcode("ean13", "0123456789012"); # Barcode einfuegen; Position ausprobieren $page->object($barcode, 200, 100); # neues PDF schreiben $pdf->save("sample2.pdf"); __END__;
      
      Zur Abwechslung diesmal den Barcode auf Seite 2 gesetzt. Resultat im Anhang.
      
      Edit:
      Ansonsten gilt hlubenow's Antwort von 14:11.
      Wir können nicht raten oder erahnen, wie Dein Code ausschaut oder welche Fehlermeldungen Du bekommst.
      Wenn Du weiter Probleme hast, zeige bitte mal Code dazu und die Fehlermeldungen.
      Informationen zum System (Betriebssystem) und Perl-Version könnten evtl. auch interessant sein.
      Attachments
      
      application/pdf
      sample2.pdf
      
      Last edited: 2022-02-14 18:04:48 +0100 (CET)
      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!
      - +3 replies
      - volker.55211
        
        2022-02-16 11:37
        
        User since
        2019-03-18
        26 articles
        BenutzerIn
        
        Also zu den Versionen:
        Perl 5.16, PDF::API2 2.033
        
        Quelltext:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my $pdf = PDF::API2->new(); $pdf = PDF::API2->open($pdfdatei); $page = $pdf->openpage(1); $font = $pdf->corefont('Helvetica'); $text = $page->text(); $text->font($font, 15); #$text->position(200, 700); $infotext=" Lager fertig: ".$heute.", ".$uhrz."\n\n\n"; $text->text($infotext); $pdf->saveas($zieldatei);
        
        zu den mir aufgefallenen Unterschieden:
        open_page funktioniert nicht deshalb openpage
        selbes bei font (corefont) und save (saveas), position geht gar nicht.
        
        Fehlermeldung jeweils dass diese Funktion nicht im Modul zu finden ist.
        Last edited: 2022-02-16 12:40:24 +0100 (CET)
        
        hlubenow
        
        2022-02-16 15:59
        
        User since
        2009-02-22
        842 articles
        BenutzerIn
        
        Man sollte das Modul auch verwenden. Füg' doch mal folgenden Header (also oben) ein:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        #!/usr/bin/env perl use warnings; use strict; use PDF::API2;
        
        Linuxer
        
        2022-02-17 21:41
        
        User since
        2006-01-27
        3783 articles
        HausmeisterIn
        
        Wenn der gezeigte Code dein gesamter Code ist, dann hat hlubenow recht. Da fehlen entscheidene Teile.
        Dein Code ist so mit Perl nicht ausführbar.
        Und die Fehlermeldungen hast Du auch nicht geliefert, nur umschrieben.
        Die Fehlermeldungen sind meist gut, und es ist nicht gut, wenn man diese den Helfern vorenthält.
        
        Wenn ich Deinen Code nur etwas überarbeite, funktioniert er bei mir.
        Im Prinzip habe ich das von hlubenow Angemerkte eingefügt und die Variablen mit - für mich - funktionierenden Werten gefüllt.
        
        Sogar die Sachen, von denen Du sagst, dass sie nicht funktionieren, funktionieren...
        
        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
        
        #! /usr/bin/env perl use strict; # WICHTIG! use warnings; # WICHTIG! use 5.020; use PDF::API2; # WICHTIG! # ANPASSEN my $pdfdatei = 'out/file-1.pdf'; my $zieldatei = 'sample3.pdf'; my $heute = qx{date +%F}; my $uhrz = qx{date +%T}; my $pdf = PDF::API2->new(); $pdf = PDF::API2->open($pdfdatei); my $page = $pdf->openpage(1); my $font = $pdf->corefont('Helvetica'); my $text = $page->text(); $text->font($font, 15); $text->position(200, 700); my $infotext="Lager fertig: ".$heute.", ".$uhrz."\n\n\n"; $text->text($infotext); $pdf->saveas($zieldatei);
        
        Resultat im Anhang.
        Attachments
        
        application/pdf
        sample3.pdf
        
        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!

View all threads created 2022-02-12 18:05.