perlのPDF :: API2 :: SIMPLEを使う - ヘッダとフッタ - perl、perl-module

ヘッダーとフッターを最初のページに印刷しないようにするにはどうすればよいですか？

回答：

ここには、原油ですが実用的な例があります：

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 );
}