Re: How to read page dimensions of pdf file

[polarius]

roboticus:

Thanks for the help. I used the Page object from PDF::API2.

Here's my basic code in case someone else needs to use something similar:

#!/usr/bin/perl

use PDF::API2;

my $filename="c:/filename.pdf";
my $pdf = PDF::API2->open("$filename");

for my $index (1 .. $pdf->pages) {
    my $page = $pdf->openpage($index);

    (my $llx, my $lly, my $urx, my $ury) = $page->get_mediabox;

    my $txt  = $page->text;

    $txt->textlabel($urx-100, $ury-30, $pdf->corefont('Arial'), 12, 'a
+dd text here');
}

my $fileout = "c:/fileout.pdf";
$pdf->saveas("$fileout");
$pdf->end;