Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Add watermark to a pdf

by steves (Curate)
on Dec 28, 2004 at 12:35 UTC ( #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.


Comment on Re: Add watermark to a pdf
Re^2: Add watermark to a pdf
by holli (Monsignor) 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
Node Status?
node history
Node Type: note [id://417754]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2014-09-01 19:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (17 votes), past polls