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
58
59
60
61
62
63
64
65
66
|
#!/usr/bin/perl
use strict;
use warnings;
use lib '../lib';
use PDF::Builder;
use PDF::Builder::Util;
use PDF::Builder::Content;
#my $compress = 'none'; # uncompressed streams
my $compress = 'flate'; # compressed streams
my ($str);
# create a "Hello World!" PDF called BASE
my $pdf = PDF::Builder->new(-compress => $compress);
my $f1 = $pdf->corefont('Verdana');
my $page = $pdf->page();
$page->mediabox(595,842);
my $text = $page->text();
$text->textlabel(50,780, $f1, 20, "Hello World!");
$pdf->saveas("$0.BASE.pdf");
$pdf->end();
# open and read BASE, rewrite "Hello World! (2)", save as UPDATED
$pdf = PDF::Builder->open("$0.BASE.pdf", -compress => $compress);
$f1 = $pdf->corefont('Verdana');
$page = $pdf->page();
$page->mediabox(595,842);
$text = $page->text();
$text->textlabel(50,780, $f1, 20, "Hello World! (2)");
$pdf->saveas("$0.UPDATED.pdf");
$pdf->end();
# open and read UPDATED, rewrite "Hello World! (3)", save as string $str
$pdf = PDF::Builder->open("$0.UPDATED.pdf", -compress => $compress);
$f1 = $pdf->corefont('Verdana');
$page = $pdf->page();
$page->mediabox(595,842);
$text = $page->text();
$text->textlabel(50,780, $f1, 20, "Hello World! (3)");
$str = $pdf->to_string();
$pdf->end();
# open and read string $str, rewrite "Hello World! (4)", save as STRING
$pdf = PDF::Builder->from_string($str, -compress => $compress);
$f1 = $pdf->corefont('Verdana');
$page = $pdf->page();
$page->mediabox(595,842);
$text = $page->text();
$text->textlabel(50,780, $f1, 20, "Hello World! (4)");
$pdf->saveas("$0.STRING.pdf");
$pdf->end();
exit;
__END__
|
