1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
#!/usr/bin/perl
use lib '../lib';
use PDF::API2;
use PDF::API2::Util;
$pdf=PDF::API2->new;
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World!");
$pdf->saveas("$0.BASE.pdf");
$pdf->end();
$pdf=PDF::API2->open("$0.BASE.pdf");
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World! (2)");
$pdf->saveas("$0.UPDATED.pdf");
$pdf->end();
$pdf=PDF::API2->open("$0.UPDATED.pdf");
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World! (3)");
$str=$pdf->stringify();
$pdf->end();
$pdf=PDF::API2->openScalar($str);
$f1=$pdf->corefont('Verdana');
$page = $pdf->page;
$page->mediabox(595,842);
$gfx=$page->gfx;
$gfx->textlabel(50,780,$f1,20,"Hello World! (4)");
$pdf->saveas("$0.STRING.pdf");
$pdf->end();
exit;
__END__
|