PDF::API2 cross-reference stream
Bonjour,
j'ai un souci avec le module PDF::API2 lors d'un lancement de mon script en ligne de commande :
Code:
perl op.pl -modele "a.pdf" -copie "b.pdf"
j'ai ce message :
Code:
1
2
3
| The PDF file uses a cross-reference stream, which is not yet supported (see Know
n Issues in the PDF::API2 documentation) at C:/Perl/site/lib/PDF/API2/Basic/PDF/
File.pm line 1136. |
Mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| #!/usr/local/bin/perl
use strict;
use PDF::API2;
use Getopt::Long;
my ($modele, $copie) = ();
GetOptions ("modele=s" => \$modele,
"copie=s" => \$copie
)
or die("Error in command line arguments\n");
my $pdf = PDF::API2->new();
my $p_modele = PDF::API2->open($modele);
my $p_copie = PDF::API2->open($copie);
my $count = $p_copie->pages();
$count = $count+1;
my $i;
my $page = $pdf->importpage($p_modele);
for($i = 1; $i < $count; $i++){
$page = $pdf->importpage($p_copie, $i);
}
$pdf->saveas('new.pdf'); |
A savoir que sur un autre poste, cela marche.
Pourriez-vous m'aider ?
