File: 011_open_update

package info (click to toggle)
libpdf-api2-perl 2.019-1%2Bdeb7u1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 20,264 kB
  • sloc: perl: 42,313; sh: 23; makefile: 9
file content (57 lines) | stat: -rw-r--r-- 979 bytes parent folder | download
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__