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

【问题标题】：using perl's PDF::API2::SIMPLE -- Header and Footer使用 perl 的 PDF::API2::SIMPLE -- 页眉和页脚
【发布时间】：2010-06-30 20:41:15
【问题描述】：

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

【问题讨论】：

如果 PDF::API2::Simple 无法为您提供所需的控制级别，您可以随时退回到 PDF::API2。

标签： perl perl-module

【解决方案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 );
}

【讨论】：