PDF::reuse pour la fusion de pdf
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 :lol:
Code:
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 :aie:
refait ton code avec une autre librairie
Citation:
Envoyé par
V.G.T
Bonjour,
J'ai refait ton code avec une autre librairie mais ce fonctionne de la meme magniere.
il y a une erreur quand tu déroule les fichiers pour les traiter.
le "." et le ".." sont vue comme contenu du répertoire.
soit tu met un teste comme siote si il n'y a que des pdf dans repertoire
Code:
1
2
3
4
|
if( -f $chemin_dossier."/".$fichiers){
...
} |
soit
Code:
1
2
3
4
|
if($fichiers=~/\.pdf/){
...
} |
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
|
#!d:\bin\perl.exe
use strict;
use PDF::API2;
my $pdf = PDF::API2->new;
my $chemin_dossier= 'a' ;
opendir DOS, $chemin_dossier or die "impossible d'ouvrir le repertoire" ;
my @fichiers= readdir (DOS);
foreach my $fichiers(@fichiers){
if($fichiers=~/\.pdf/){
my $pdf1 = PDF::API2->open($chemin_dossier."/".$fichiers);
my $pagenumber = $pdf1->pages;
for( my $i=1; $i<$pagenumber; $i++){
$pdf->importpage($pdf1,$i);
}
}
}
$pdf->saveas("FINISH.pdf");
__END__ |
j'espere avoir répondu a ton probleme
--
http://vgt.fr
MERCI BEAUCOUP...:ccool:
D'un projet à un autre on se perd un peu merci pour tes réponses et désolé pour la mienne si tardive :oops:
