Bonjour à tous,
Pourriez-vous m'aider ?
Voici l'erreur :
et le code qui analyse des fichiers pdf via le module CAM::PDF et récupère ceux de plus de 70 pages>perl -w PDF_analyse.pl
Expected object open tag
0 ref
0 131
0000000000 65535 f
0000210923...
>Exit code: 255
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,
Partager