Bonjour à tous,


Pourriez-vous m'aider ?

Voici l'erreur :
>perl -w PDF_analyse.pl
Expected object open tag
0 ref
0 131
0000000000 65535 f
0000210923...
>Exit code: 255
et le code qui analyse des fichiers pdf via le module CAM::PDF et récupère ceux de plus de 70 pages
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
28
foreach my $rep (@repertoires) {
 
	opendir( DIR, $rep ) 
	    or die "Incapable d'ouvrir le repertoire.\n";
	# on ne récupère que les pdf 
	my @file_list  = grep { /\.pdf$/ } readdir(DIR);
	# on garde le chemin depuis la racine
	my @file_path  = map {$rep.'/'.$_ } @file_list;
	closedir(DIR);
 
	foreach my $file (@file_path) {
 
		my $doc = CAM::PDF->new($file);
 
		if (defined $doc){
			my $pages_num = $doc->numPages();
 
			if ( $pages_num > 70) {
				# on récupère le nom
				my ($name) = $file =~ m{([^/]*\.pdf)};
				print "$name\t$pages_num\n";
				if (-e 'C:/copies/tri/'.$name){
					copy($file, 'C:/copies/tri/'.$name) or warn "Copy failed $file : $!";
				}
			}
		}
	}
}

Avez-vous une idée de ce qui ne va pas ?


D'avance merci,