使用perl的PDF :: API2 :: SIMPLE - 页眉和页脚

Question

如何让页眉和页脚不打印在第一页上？

Answer 1

这里是原油，但工作示例：

use strict; 
use warnings; 
use PDF::API2::Simple; 

our $PageNo; 

my $pdf = PDF::API2::Simple->new(
    file => 'file.pdf', 
    header => \&header, 
    footer => \&footer, 
); 

$pdf->add_font('Verdana'); 

for my $page (1..3) { 
    $pdf->add_page; 
    $pdf->text('blah' x 300, autoflow => 'on'); 
} 
$pdf->save; 


sub header { 
    $PageNo++; 
    return if $PageNo == 1; 
    shift->text('Header text here'); 
} 

sub footer { 
    return if $PageNo == 1; 
    shift->text('page: ' . $PageNo, x => 10, y => 10); 
}