Bonjour,

j'ai un souci avec le module PDF::API2 lors d'un lancement de mon script en ligne de commande :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
perl op.pl -modele "a.pdf" -copie "b.pdf"
j'ai ce message :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?