in reply to Re: Add watermark to a pdf
in thread Add watermark to a pdf
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();
|
|---|