comment on

thank you for that "form"-hint. that was what i needed. i finally assembled a script which does perfectly what i wanted to achieve:

i know that the string concatenation ($string) is a bit clumsy, but i wanted to add the comments. you cannot have comments in quotes, can you?

use strict;

use PDF::API2;
use PDF::Reuse;

# specify files
my $ifile = "c:/kopie/anlage-h-beg.pdf";
my $ofile = "c:/kopie/new.pdf";

#find out number of pages
my $ipdf  = PDF::API2->open($ifile);
my $nop   = $ipdf->pages;
$ipdf->end();

#set outfile for PDF::Reuse
prFile($ofile);

#get font
my $intName = prFont("Helvetica");

# assemble watermark text
my $string = 

# save graphic state
"q\n" .

# Begin Text
"BT\n" .

# set font and "size" 
"/$intName 1 Tf\n" .

# set a text matrix
# 1. width of text
# 2. rotation angle (counterclockwise)
# 3. inclination (clockwise)
# 4. height of text
# 5. position x (0=left)
# 6. position y (0=bottom)    
"180 60 -60 180 100 185 Tm\n" .        

#set rgb-color (values between 0 and 1)
#"1 0 0 rg" .

#set grayscale (white=1 black=0)
"0.9 g\n" .

# show text
"(Kopie) Tj\n" .

# End Text
"ET\n" .
"Q\n";


#loop over pages
for (my $i=1;$i<=$nop;$i++)
{
    #add watermark    
    prAdd ($string);

    #add original content    
    my $internalName = prForm 
    ( 
        {
            file     => $ifile,
            page     => $i,
            effect   => 'print',
            tolerant  => 'no'
        } 
    );
    
    #add pagebreak
    prPage;
}

#save and close
prEnd();
[download]

In reply to Re^2: Add watermark to a pdf by holli
in thread Add watermark to a pdf by holli

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks