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 : $!";
}
}
}
}
} |
