I've found that directly inserting text into a PDF can be fraught with danger. I suspect that the text/graphics state has been left in an altered state; I.E. its undergone rotation or translation etc.
I've found it more robust to recreate each page in the PDF and import each page as a form element. Then output any new text or graphics.
#!/usr/bin/perl
use warnings; use strict;
use PDF::API2;
my $file = shift (@ARGV);
my $pdf_in = PDF::API2->open($file);
my $pdf = PDF::API2->new;
my $pagenum = 1;
my $page_in = $pdf_in->openpage($pagenum);
my $page = $pdf->page(0);
$page->mediabox($page_in->get_mediabox);
$page->trimbox($page_in->get_trimbox);
my $gfx = $page->gfx;
my $xo = $pdf->importPageIntoForm($pdf_in, $pagenum);
$gfx->formimage($xo,
0, 0, # x y
1); # scale
my $font = $pdf->corefont('Helvetica-Bold');
my $text = $page->text();
$text->font($font,10); #10-point font size
$text->translate(15,770); #top left corner.. 0,0 origin starts in the
+bottom left corner
$text->text('blah blah sample text');
$pdf->saveas($file);
-
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.
|