hello,

je voulais utiliser ce module (PDF::REUSE) pour faire un pdf de tous les pdf contenu dans un de mes dossiers...

Trop naïf quant à mes connaissances

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
 
#!/usr/local/bin/perl -w
 
use strict;
use PDF::Reuse;
 
my $chemin_dossier= './dossier/' ;
opendir DOS, $chemin_dossier or die "impossible d'ouvrir le repertoire" ;
my @fichiers=  readdir (DOS);
 
foreach my $fichiers(@fichiers)
{
prDocDir($chemin_dossier);
prFile('FINISH.pdf');
prFile($fichiers); # rajouter le fichier suivant
prEnd();
}
je sais que ma démarche n'est pas très intelligente, je fais ce que je peux