Bonjour,
je veux extraire des archives tar.gz, j'en ai une grande quantité et j'ai fait un script qui me trouble par son comportement.
Tous les fichiers sont dans un repertoire C:/source
J'ai mis les fichiers à compresser dans un tableau @LesFichiers
le 1er, donc $LesFichiers[0] s'appelle compress.log.gz


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
use Archive::Extract;
 
$LECTEUR="C:/";
$DEST = "$LECTEUR"."temp";
$SYSLOG="$LECTEUR"."Source"; 
 
my $ae = Archive::Extract ->new( archive => "$SYSLOG"."/compress.log.gz");
my $ok = $ae -> extract( to => "$DEST") or die $ae -> error;
 
print "OK";
Ce programme marche


Maintenant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use Archive::Extract;
 
$LECTEUR="C:/";
$DEST = "$LECTEUR"."temp";
$SYSLOG="$LECTEUR"."Source"; 
$i=0;
print "$SYSLOG"."$LesFichiers[$i]";
print "$SYSLOG"."/compress.log.gz\n" ;
 
my $ae = Archive::Extract ->new( archive => "$SYSLOG"."$LesFichiers[$i]");
my $ok = $ae -> extract( to => "$DEST") or die $ae -> error;
 
print "OK";
Ne marche pas, c'est très bizarre je trouve
Les 2 prints des chemins de fichiers indique la même chose

une idée serait le bienvenue !
merci !