1

以下是使用 Perl 模块 PDF::API2 创建单个 PDF 文件所需的完整最小代码。第一个 PDF 创建得很好。在开始尝试创建第二个 PDF 时，该过程在第二个实例行失败：

  $page = $pdf->page(0);

与错误，Can't call method "new_obj" on an undefined value at C:/Perl64/site/lib/PDF/API2/Basic/PDF/Pages.pm line 92.

为什么？更重要的是，我必须进行哪些更改才能创建第二个 pdf？

  #!/usr/bin/perl
  use strict;
  use warnings;
  use PDF::API2;

  my $pdf1 = 'hello_world.pdf';
  my $pdf2 = 'hi_mom.pdf';
  my $text1 = "Hello World";
  my $text2 = "Hi Mom";
  my $pdf = PDF::API2->new();       #dynamic pdf file name
  my $font = $pdf->corefont( 'Times-Roman',   -encoding => 'latin1' );

  my $page = $pdf->page(0);
  $page->mediabox( 612.0, 792.0 ); #8.5" x 11.0" in PostScript points
  my $msg_text = $page->text;
  $msg_text->transform(-translate =>[72, 144]); #x,y position in points
  $msg_text->fillcolor('black');
  $msg_text->font($font, 100);
  $msg_text->text($text1);
  $pdf->saveas($pdf1);

  print "Make 2nd pdf.\n";
  $page = $pdf->page(0); #FAILS!
  {..}
  $msg_text->text($text2);
  $pdf->saveas($pdf2);
  print "2nd pdf created\n";

  $pdf->end();

  1;
4

2 回答 2

1

Data::Dumper首次创建后使用$pdf会显示大量数据：

$VAR1 = bless( {
             'catalog' => bless( { } )
             # Lot lots more, including:
             'pdf' => $VAR1->{'catalog'}{'Pages'}{' outto'}[0],
             # Which is referenced several times, e.g. $self->{pdf}->new_obj(...)
           }, 'PDF::API2' );

这在调用 后全部被删除saveas，导致undefined value错误：

$VAR1 = bless( {}, 'PDF::API2' );

您可以重新创建$pdf：

$pdf = PDF::API2->new();

但是您还需要添加所有其他方法调用（corefonts、、、mediabox）text。更容易将 PDF 创建代码放入子中：

sub create_pdf {
    my $name = shift;
    my $text = shift;

    my $pdf = PDF::API2->new();
    ....
    $pdf->saveas($name); # also calls end()
}

然后用相关的参数调用它两次。

create_pdf($pdf1, $text1);
create_pdf($pdf2, $text2);

完整的工作示例：

#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;

my $pdf1 = 'hello_world.pdf';
my $pdf2 = 'hi_mom.pdf';
my $text1 = "Hello World";
my $text2 = "Hi Mom";

create_pdf( $pdf1, $text1 );
create_pdf( $pdf2, $text2 );

sub create_pdf {
    my $name = shift;
    my $text = shift;

    my $pdf = PDF::API2->new();       #dynamic pdf file name
    my $font = $pdf->corefont( 'Times-Roman',   -encoding => 'latin1' );

    my $page = $pdf->page(0);
    $page->mediabox( 612.0, 792.0 ); #8.5" x 11.0" in PostScript points
    my $msg_text = $page->text;
    $msg_text->transform(-translate =>[72, 144]); #x,y position in points
    $msg_text->fillcolor('black');
    $msg_text->font($font, 100);
    $msg_text->text($text);
    $pdf->saveas($name);
}
于 2013-09-06T16:16:06.850 回答
-2 
if($lineas_pag == 160){  
    $page2 = $pdf->importpage($old, 2);
    $page2->mediabox('Letter');  
    my $msg_text = $page2->text;
    my $font = $pdf->corefont( 'Arial-Bold',   -encoding => 'latin1' );                
    $msg_text->font($font, 8);    
    $txt=  $msg_text;
} 
$txt->translate(96 ,$lineas_pag); $txt->text( " HOLA " );
于 2015-05-26T23:36:26.370 回答