He estado tratando de usar CAM: PDF :: Annot para su propósito más básico, agregando las anotaciones de dos archivos PDF, pero no he tenido ningún éxito.

He estado tratando de emular lo que está en la sinopsis del paquete en CPAN, pero sigo apareciendo un error.

El código en la sinopsis de CPAN (como un script completo), o cualquier consejo sería útil.

ágina @CPAN:http: //metacpan.org/pod/CAM :: PDF :: Annot

Hasta ahora tengo:

#!/usr/bin/perl
use strict
use CAM::PDF;
use CAM::PDF::Annot;

sub main()
{
   my $pdf = CAM::PDF::Annot->new( 'testAnnotPDF.pdf' );
   my $otherDoc = CAM::PDF::Annot->new( 'testAnnotPDF2.pdf' );
   my $page = 1;
   my %refs;
   my $hrefs = \%refs;
   for my $annotRef  (@{$pdf->getAnnotations($page)}){
       $otherDoc->appendAnnotation( $page, $pdf, $annotRef, $hrefs );
   }
   $otherDoc->output('pdf_merged.pdf');
}
exit main;