File: 012_pages

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 (27 lines) | stat: -rw-r--r-- 359 bytes parent folder | download | duplicates (2) 
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
 
#!/usr/bin/perl

use lib '../lib';
use PDF::API2;

$pdf = PDF::API2->new;
my $font = $pdf->corefont('Arial-Bold');

sub mark {
    my ( $page ) = @_;

    my $t = $page->text;

    $t->font( $font, 20 );
    $t->translate( 20, 700 );
    $t->text( $pdf->pages );
}

for (1..8) {
    mark $pdf->page;
}

mark $pdf->page(2);

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

__END__