polarius:

I've never done that, but I took a quick look at the PDF handling modules I have installed and found a couple candidates:

• Text::PDF has a Text::PDF::Pages object that can report the bounding box of a page.
• PDF::API2 has a Page object that can report the media box.
• CAM::PDF has a getPageDimensions function.

So if you have one of those packages installed, give it a go and report back.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

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;
[download]

Here's an example where i load a PDF file, add some data from database and save it as a new PDF: 983016. For this, i use PDF::Report.

I'm not sure how this works on very complex documents. For the rather simple ones i use for my various printing tasks, it does a nice job though.