variable non définies

Version imprimable

Bonjour,

dans mon dossier "Scans_recus" j'ai deux pdf.
à l'exécution de ce code, mes variables sont uninitialized.

Pourriez-vous m'apporter des réponses SVP ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
use strict;
use warnings;
use PDF::API2;
use CAM::PDF;
use PDF::Burst ':all';
 
my $chemin_Scans_recus='./Scans_recus/';
 
opendir PAI, $chemin_Scans_recus or die "Impossible d'ouvrir le répertoire Scans_recus";
my @Scans_recus = grep { !/^\.\.?$/ } readdir (PAI);
 
my $flag = 0;
my ($pdf_1, $pdf_2);
my $date_1;
my $date_2;
my $abs_pdf_paire;
my @NF_paire;
my $abs_pdf_impaire;
my @NF_impaire;
 
foreach my $pdf(@Scans_recus) {
  if ($flag == 0) {
    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $block) = stat $pdf;
    $date_1 = $mtime;
    $pdf_1 = $pdf;
    }
  if ($flag == 1) {
    my ($dev2, $ino2, $mode2, $nlink2, $uid2, $gid2, $rdev2, $size2, $atime2, $mtime2, $ctime2, $blksize2, $block2) = stat $pdf;
    $date_2 = $mtime2;
    $pdf_2 = $pdf;
    }
  $pdf='';
  $flag++ ;
}
 
print $pdf_1." : ".$date_1."\n";
print $pdf_2." : ".$date_2."\n";
 
if ($date_1 > $date_2) {
  $abs_pdf_paire = $pdf_2;
  @NF_paire = pdf_burst($abs_pdf_paire, 'paire' );
  $abs_pdf_impaire = $pdf_1;
  @NF_impaire = pdf_burst($abs_pdf_impaire, 'impaire' );
}
 
else {
  $abs_pdf_paire = $pdf_1;
  @NF_paire = pdf_burst($abs_pdf_paire, 'paire' );
  $abs_pdf_impaire = $pdf_2;
  @NF_impaire = pdf_burst($abs_pdf_impaire, 'impaire' );
}

ce script devrait extraire les pages des pdf...:aie:

11/06/2012, 16h57
PadawanInPerl

quand je parle de mes deux variables, ceux-sont :

$date_1
$date_2

:aie:
12/06/2012, 11h47
PadawanInPerl

:calim2:
12/06/2012, 12h05
Gardyen

indice: que représentes $pdf ?

tu as oublié juste une chose, je te laisse chercher :ccool:
12/06/2012, 12h54
PadawanInPerl

hello,

??

$pdf représente les fichiers trouvés dans @Scans_recus...

je la déclare dans le foreach.

:calim2:
12/06/2012, 13h04
Gardyen

plus exactement, $pdf représente le nom du fichier, et pas le chemin entier...
donc forcément stat ne renvoie rien, puisque le fichier ./$pdf n'existe pas

change

Code:

= stat $pdf;

en

Code:

= stat "$chemin_Scans_recus/$pdf";
12/06/2012, 13h16
PadawanInPerl

Excellent je te remercie !! :ccool:

Saurais-tu ce que signifie en sachant que aa1.pdf est donc un des 2 pdf contenu dans le dossier :

Code:

aa1.pdf: No such file or directory at C:/Perl/site/lib/PDF/Burst.pm line 108
12/06/2012, 13h25
Gardyen

c'est la même erreur, il ne trouve pas le fichier pour la même raison...

Pour les intéressés :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/usr/local/bin/perl
 
# http://search.cpan.org/~leocharre/PDF-Burst-1.20/lib/PDF/Burst.pod
# http://search.cpan.org/~ssimms/PDF-API2-2.019/lib/PDF/API2.pm
 
use strict;
use warnings;
use PDF::API2;
use CAM::PDF;
use PDF::Burst ':all';
 
my $chemin_Scans_recus='./Scans_recus/';
 
opendir PAI, $chemin_Scans_recus or die "Impossible d'ouvrir le répertoire Scans_recus";
my @Scans_recus = grep { !/^\.\.?$/ } readdir (PAI);
 
my $flag = 0;
my ($pdf_1, $pdf_2);
my $date_1;
my $date_2;
my $abs_pdf_paire;
my @NF_paire;
my $abs_pdf_impaire;
my @NF_impaire;
my @date_1;
my @date_2;
 
foreach my $pdf(@Scans_recus) {
  if ($flag == 0) {
    #($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $block) = stat $pdf;
    @date_1 = stat "$chemin_Scans_recus/$pdf";
    $date_1 = $date_1[9];
    #$date_1 = $mtime;
    $pdf_1 = $pdf;
    }
  if ($flag == 1) {
    #($dev2, $ino2, $mode2, $nlink2, $uid2, $gid2, $rdev2, $size2, $atime2, $mtime2, $ctime2, $blksize2, $block2) = stat $pdf;
    @date_2 = stat "$chemin_Scans_recus/$pdf";
    $date_2 = $date_2[9];
    #$date_2 = $mtime2;
    $pdf_2 = $pdf;
    next;
    }
  $pdf='';
  $flag++ ;
}
 
if ($date_1 > $date_2) {
  $abs_pdf_paire = $pdf_2;
  @NF_paire = pdf_burst("$chemin_Scans_recus/$abs_pdf_paire", 'paire' );
  $abs_pdf_impaire = $pdf_1;
  @NF_impaire = pdf_burst("$chemin_Scans_recus/$abs_pdf_impaire", 'impaire' );
  }
else {
  $abs_pdf_paire = $pdf_1;
  @NF_paire = pdf_burst("$chemin_Scans_recus/$abs_pdf_paire", 'paire' );
  $abs_pdf_impaire = $pdf_2;
  @NF_impaire = pdf_burst("$chemin_Scans_recus/$abs_pdf_impaire", 'impaire' );
  }

Un grand :ccool: à Gardyen

Merci

12/06/2012, 13h51
PadawanInPerl

ici aussi le chemin n'était pas complet (le voici complet):

Code:

pdf_burst("$chemin_Scans_recus/$abs_pdf_paire", 'paire' );