Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Add watermark to a pdf

by steves (Curate)
on Dec 28, 2004 at 12:35 UTC ( [id://417754]=note: print w/replies, xml ) Need Help??


in reply to Add watermark to a pdf

Can you show us the code you wrote using PDF::Reuse? It looks like the prAdd method will allow images to be added to existing pages.

You may also need to use something like ghostscript for that level of PDF manipulation. There is a GSAPI module at CPAN that provides Perl access to the ghostscript API, but I've never used it personally.

There's a PDF FAQ here. Your question of how to add watermarks is covered there but they suggest using this tool, which you have to buy.

Replies are listed 'Best First'.
Re^2: Add watermark to a pdf
by holli (Abbot) on Dec 28, 2004 at 12:46 UTC
    i used (basically taken from the docs)

    use PDF::Reuse; use Image::Info qw(image_info dim); use strict; my $file = 'c:/kopie.jpg'; my $info = image_info($file); my ($width, $height) = dim($info); # Get the dimensions prFile('c:/myFile.pdf'); my $intName = prJpeg("$file", $width, $height); my $str = "q\n"; $str .= "$width 500 500 $height 100 100 cm\n"; $str .= "/$intName Do\n"; $str .= "Q\n"; prDoc('c:/anlage-h-rbskt.pdf'); prAdd($str); prEnd();


    but as i said, this will add the image to a new page. am i missing something?

    it will also be ok if i could just add text to the background.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://417754]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (5)
As of 2024-04-19 12:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found