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

Linuxer

2022-02-17 21:41

User since
2006-01-27
3870 Artikel
HausmeisterIn

user image

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 )

#! /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.

Anhänge

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!