Editing/Replacing Text in a PDF -- PDF::API2

This is a multi-part message in MIME format.

--===============0090985793==
Content-Class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C72449.296C6772"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C72449.296C6772
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

ok I will try to be as detailed as possible, I have to create a PDF from
variables posted from Flash. getting the variables is easy, and putting
them in a PDF however was challenging when first started is now for the
most part under control. the tricky part it, the layout for the pdf is
designed using Adobe Indesign, I use perl to open the pdf and to place
variables in the template (PDF::API2), but the designer makes the text
in Indesign and wants me to replace his text holders with the variables
posted from flash. Right now I have been trying to just replace text,
and nothing works this is the code i have thus far.

#!/usr/bin/perl

use PDF::API2;
use GD::Graph::bars;
use GD::Graph;
use GD;
use strict;
use constant mm =3D> 25.4/72;
use constant in =3D> 1/72;
use constant pt =3D> 1;

$pdf =3D PDF::API2->open('InDesignTemp.pdf');

my [at] data =3D (
["Jan-01","Feb-01","Mar-01"],
[21,25,33]
);

my $graph =3D new GD::Graph::bars;

$graph->set(
x_label =3D> 'Month',
y_label =3D> 'Revenue ($1,000s)',
title =3D> 'Monthly Online Sales for 2001',
bar_spacing =3D> 10
)
or warn $graph->error;

$graph->plot(\ [at] data) or die $graph->error;

my %font =3D (
Helvetica =3D> {
Bold =3D> $pdf->corefont('Helvetica-Bold', -encoding =3D> =
'lat
+in1'),
Roman =3D> $pdf->corefont('Helvetica', -encoding =3D> =
'lati
+n1'),
Italic =3D> $pdf->corefont('Helvetica-Oblique', -encoding =3D> =
'lat
+in1'),
},
Times =3D> {
Bold =3D> $pdf->corefont('Times-Bold', -encoding =3D> =
'lati
+n1'),
Roman =3D> $pdf->corefont('Times', -encoding =3D> =
'la
+tin1'),
Italic =3D> $pdf->corefont('Times-Italic', -encoding =3D> =
'lat
+in1'),
},
);

my $page =3D $pdf->openpage(1);

s/Title/Ben is the Man/;

my $headline_text =3D $page->text;
$headline_text->font( $font{'Helvetica'}{'Bold'}, 18/pt );
$headline_text->fillcolor( 'white' );
$headline_text->translate( 50/mm, 130/mm );
$headline_text->text_right( 'this is my new stuff' );

my $photo =3D $page->gfx;

open(GRAPH,">images/graph1.jpeg") || die "Cannot open graph1.jpg: $!\n
+";
binmode GRAPH;
print GRAPH $graph->gd->jpeg(100);
close GRAPH;

$photo_file=3D$pdf->image_jpeg("images/graph1.jpeg");
$photo->image($photo_file, 60/mm, 70/mm, 85/mm, 75/mm);

$pdf->saveas("Build3.pdf");

############################################################ ##########
+###################
####this part I was using to to replace the text however it corrupts t
+he file after i do
############################################################ ##########
+####################
#open(PDF,"<Build3.pdf") || print header('text/html').'can\'t open PDF
+ file';
#binmode PDF;
#undef $/;
#$_ =3D <PDF>;
#close(PDF);

#s/Title/Ben is the Man/;

#open(OUT, '>out.pdf') || print header('text/html').'can\'t open out f
+ile';
#print OUT $_;
#close(OUT);

------_=_NextPart_001_01C72449.296C6772
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html>

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">

<meta name=3DGenerator content=3D"Microsoft Word 10 (filtered)">

<style>

</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

ok I will
try to be as detailed as possible, I have to create a PDF from variables =
posted
from Flash. getting the variables is easy, and putting them in a PDF =
however
was challenging when first started is now for the most part under =
control. the
tricky part it, the layout for the pdf is designed using Adobe Indesign, =
I use perl
to open the pdf and to place variables in the template (PDF::API2), but =
the
designer makes the text in Indesign and wants me to replace his text =
holders
with the variables posted from flash. Right now I have been trying to =
just
replace text, and nothing works this is the code i have thus far. =


<pre><tt>#!/usr/bin/perl</tt></pre><pre><=
tt> </tt></pre><pre><tt>use =
PDF::API2;</tt></pre><pre><tt>use =
GD::Graph::bars;</tt></pre><pre><tt>use =
GD::Graph;</tt></pre><pre><tt>use =
GD;</tt></pre><pre><tt>use =
strict;</tt></pre><pre><tt>use =
constant mm =3D> 25.4/72;</tt></pre><pre><tt>use =
constant in =3D> =
1/72;</tt></pre><pre><tt>use =
constant pt =3D> =
1;</tt></pre><pre><tt> </tt></pre><pre><tt>$pdf =3D =
PDF::API2->open('InDesignTemp.pdf');</tt></pre><pre><tt>=
 </tt></pre><pre><tt>my [at] data =
=3D (</tt></pre><pre><tt>["Jan-01","Feb-01","M=
ar-01"],</tt></pre><pre><tt> =
[21,25,33]</tt></pre><pre><tt> =
);</tt></pre><pre><tt> </tt></pre><pre><tt> my =
$graph =3D new GD::Graph::bars;</tt></pre><pre><tt> </tt></pre><pre><tt> =
$graph->set(</tt></pre><pre><tt>x_label =
=3D> 'Month',</tt></pre><pre><tt> y_label =
=3D> 'Revenue ($1,000s)',</tt></pre><pre><tt> title =
=3D> 'Monthly Online Sales for =
2001',</tt></pre><pre><tt> =
bar_spacing =3D> 10</tt></pre><pre><tt> =
)</tt></pre><pre><tt> or warn =
$graph->error;</tt></pre><pre><tt> </tt></pre><pre><tt> =
$graph->plot(\ [at] data) or die =
$graph->error;</tt></pre><pre><tt> </tt></pre><pre><tt>my %font =
=3D (</tt></pre><pre><tt> Helvetica =3D> =
{</tt></pre><pre><tt> =
Bold =3D> =
$pdf->corefont('Helvetica-Bold', -encoding =3D> =
'lat</tt></pre><pre><tt>+in1'),</tt></pre><pre=
><tt> Roman =
=3D> =
$pdf->corefont('Helvetica', &=
nbsp; -encoding =3D> 'lati</tt></pre><pre><tt>+n1'),</tt></pre><pre>=
<tt> Italic =
=3D> $pdf->corefont('Helvetica-Oblique', -encoding =3D> =
'lat</tt></pre><pre><tt>+in1'),</tt></pre><pre=
><tt> =
},</tt></pre><pre><tt> =
 Times =3D> {</tt></pre><pre><tt> =
Bold =3D> =
$pdf->corefont('Times-Bold', =
-encoding =3D> 'lati</tt></pre><pre><tt>+n1'),</tt></pre><pre>=
<tt> =
Roman =3D> =
$pdf->corefont('Times', =
; -encoding =3D> =
'la</tt></pre><pre><tt>+tin1'),</tt></pre><pr=
e><tt> Italic =
=3D> $pdf->corefont('Times-Italic', =
-encoding =3D> 'lat</tt></pre><pre><tt>+in1'),</tt></pre><pre=
><tt> =
},</tt></pre><pre><tt> =
);</tt></pre><pre><tt> </tt></pre><pre><tt>my $page =
=3D $pdf->openpage(1);</tt></pre><pre><tt> </tt></pre><pre><tt>s/Title/Ben is the =
Man/;</tt></pre><pre><tt> </tt></pre><pre><tt> my =
$headline_text =3D =
$page->text;</tt></pre><pre><tt> =
$headline_text->font( $font{'Helvetica'}{'Bold'}, 18/pt =
);</tt></pre><pre><tt> =
$headline_text->fillcolor( 'white' =
);</tt></pre><pre><tt> =
$headline_text->translate( 50/mm, 130/mm =
);</tt></pre><pre><tt> =
$headline_text->text_right( 'this is my new stuff' =
);</tt></pre><pre><tt> </tt></pre><pre><tt>my $photo =
=3D $page->gfx;</tt></pre><pre><tt> </tt></pre><pre><tt>open(GRAPH,">images/graph1.jpeg")=
|| die "Cannot open graph1.jpg: =
$!\n</tt></pre><pre><tt>+";</tt></pre><pr=
e><tt>binmode =
GRAPH;</tt></pre><pre><tt>print =
GRAPH =
$graph->gd->jpeg(100);</tt></pre><pre><tt>close =
GRAPH;</tt></pre><pre><tt> </tt></pre><pre><tt>$photo_file=3D$pdf->image_jpeg("images=
/graph1.jpeg");</tt></pre><pre><tt>$photo->image($photo_file, 60/mm, 70/mm, =
85/mm, 75/mm);</tt></pre><pre><tt> </tt></pre><pre><tt>$pdf->saveas("Build3.pdf");</span=
></tt></pre><pre><tt> </tt></pre><pre><tt>##############################################=
########################</tt></pre><pre><tt>+###################</=
tt></pre><pre><tt>####this =
part I was using to to replace the text however it corrupts =
t</tt></pre><pre><tt>+he file after i =
do</tt></pre><pre><tt>##############################################=
########################</tt></pre><pre><tt>+####################<=
/tt></pre><pre><tt>#open(PDF,"<Build3.pdf") || =
print header('text/html').'can\'t open =
PDF</tt></pre><pre><tt>+ =
file';</tt></pre><pre><tt>#binmode =
PDF;</tt></pre><pre><tt>#undef =
$/;</tt></pre><pre><tt>#$_ =3D =
<PDF>;</tt></pre><pre><tt>#close(PDF);</tt></pre><pre><tt>=
 </tt></pre><pre><tt>#s/Title/Ben is the =
Man/;</tt></pre><pre><tt> </tt></pre><pre><tt> </tt></pre><pre><tt>#open(OUT, '>out.pdf') || print =
header('text/html').'can\'t open out =
f</tt></pre><pre><tt>+ile';</tt></pre><pre>=
<tt>#print =
OUT $_;</tt></pre><pre><tt>#close(OUT);</tt></pre><pre><tt>=
 </tt></pre>

 

</div>

</body>

</html>

------_=_NextPart_001_01C72449.296C6772--

--===============0090985793==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0090985793==--