Discussion :

[PadawanInPerl]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if( -f $chemin_dossier."/".$fichiers){
...
}

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if($fichiers=~/\.pdf/){
...
}

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
 
#!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

[PadawanInPerl]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if( -f $chemin_dossier."/".$fichiers){
...
}

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if($fichiers=~/\.pdf/){
...
}

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
 
#!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...

D'un projet à un autre on se perd un peu merci pour tes réponses et désolé pour la mienne si tardive