module Archive :: Extract

Version imprimable

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:

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:

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 !

13/07/2009, 22h39
djibril
$SYSLOG_DIR n'existe nulle part.
Pense à mettre un
Code:

1 2 use strict; use warnings;
en début du script, ça t'aidera grandement.

ok tu avais raison, mais ce n'est pas vraiment le pb, (j'ai mis ce que tu as dis mais plus haut dans mon code)
je l'ai un peu retouché mais j'ai toujours le même résultat
les adresses de mes fichiers sont dans $LesFichiers
Code:

1 2 3 4 5 6 7 8 9 10 11 $i=0; print "$LesFichiers[$i]"; print "C:/compress.log.gz\n" ; $ae = Archive::Extract ->new( archive => $LesFichiers[$i]); $ok = $ae -> extract( to => "$DEST") or die $ae -> error; print "OK";
les 2 prints indiquent la même chose
ce code ne fonctionne pas. En fait je peux décompresser uniquement en rentrant explicitement l'adresse de mon fichier. (mon but est de faire une boucle)

16/07/2009, 10h50
djibril

Au vu de ton script, tu n'as absolument rien changé.
Le mieux serait de nous mettre le code complet.
16/07/2009, 10h57
djibril
Le constructeur du module attend que tu lui fournisse ton archive ($LesFichiers[$i]).

Code:

my $ae = Archive::Extract ->new( archive => $LesFichiers[$i]);

Ensuite il extrait les fichiers vers le répertoire qui tu lui as désigné ($DEST).

Code:

my $ok = $ae->extract( to => $DEST) or die $ae -> error;

Pour avoir les adresses de ces fichiers :
Code:

1 2 3 4 5 6 my $files_ref = $ae->files; # Afficher les fichiers foreach my $fichier ( @{$files_ref} ) { print "- $fichier\n"; }

OK pour ton explication,
si tu veux bien voici la partie nécessaire du code :

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
#!/usr/local/bin/perl
 
use DBI;
use strict;
use warnings;
 
my $LECTEUR="C:\\"; # lecteur d'installation
my $SYSLOG_DIR="$LECTEUR"."Source"; # répertoire d'installation du fichier syslog à analyser
 
print "Ouverture du repertoire $SYSLOG_DIR\n";
opendir (SYSLOGDIR,$SYSLOG_DIR) or die "Impossible d'ouvrir $SYSLOG_DIR";
 
# ------------------------------------------------------------------------------------------------
# Fonction lister les fichiers contenus dans $SYSLOG_DIR
# le nom des fichiers est dans une table : @LesFichiers
# ------------------------------------------------------------------------------------------------
 
my @LesFichiers = ListersFichiers($SYSLOG_DIR);
print "les fichiers a traiter sont :\n";
print "@LesFichiers";
my $NbrFichiers = @LesFichiers;
 
print " Il y a $NbrFichiers fichiers log dans le repertoire\n";
 
 
sub ListersFichiers
 {
  my ( $SYSLOG_DIR ) = @_;
  my @fichiers;
 
  # Liste fichiers et répertoire sauf (. et ..)
  my @Contenu = grep { !/^\.\.?$/ } readdir(SYSLOGDIR);
 
  # Fermeture du répertoire
  closedir (SYSLOGDIR);
 
  # On récupère tous les fichiers
  foreach my $nom ( @Contenu )
        {
      push ( @fichiers, $SYSLOG_DIR."/$nom\n" );
        }
  return @fichiers;
  }
 
#------------------------------------------------------------------------------
#           décompresser fichiers, copie dans C:/temp
#------------------------------------------------------------------------------
 
use Archive::Extract;
 
my $DEST = "$LECTEUR"."/temp";
 
& ExtraireFichier;
 
sub ExtraireFichier{
 
## je vérifie que les 2 adresses sont les mêmes pour i=0
my $i=0;
print "$LesFichiers[$i]\n";
print "$SYSLOG_DIR"."/compress.log.gz\n" ;
 
# la je voudrais mettre une boucle pour tous les $i de $LesFichiers
 
my $ae = Archive::Extract ->new( archive => "$SYSLOG_DIR"."/compress.log.gz");
#my $ae = Archive::Extract ->new( archive => $LesFichiers[$i]);
 
# A la place de "$SYSLOG_DIR"."/compress.log.gz" je voudrais $LesFichiers[$i]
 
my $ok = $ae -> extract( to => "$DEST") or die $ae -> error;
print "OK";
 
my $files_ref  = $ae->files;
# Afficher les fichiers
foreach my $fichier ( @{$files_ref} ) {
  print "- $fichier\n";
}}

ca marche bien mais uniquement si je donne directement le nom du fichier ( au lieux de le chercher dans une table)

sacré casse tête quand même...
merci pour ton temps et ta patience

16/07/2009, 12h58
djibril

Que te donne ceci ?

Code:

print $LesFichiers[0];
16/07/2009, 13h45
grego..

cela me donne la bonne adresse (le 1er fichier de la liste) :

c:\source/compress.log.gz
16/07/2009, 13h53
djibril

Code:

$LesFichiers[0] =~ s{\\}{/}g;

Et teste ton code
16/07/2009, 14h19
grego..

Je l'ai testé à plusieurs endroits différents, avec la commande my $ae = Archive::Extract ->new( archive => $LesFichiers[$i]);

J'ai :

Key 'archive' <C:/Source/compress.log.gz> is of invalid type for 'Archive::Extract::new' provided by main :: ExtraireFichier at C:/compress.pl line 65
Can't call method "extract" on an undefined valuee at C:/compress.pl line 69
16/07/2009, 14h25
djibril

Sauf que dans ton code ci-dessus tu as mis :

Code:

print "C:/compress.log.gz\n" ;

C:/compress.log.gz ou c:/source/compress.log.gz ?
16/07/2009, 14h36
grego..

je suis fatigué,
non définitivement, c'est C:/sources/compress.log.gz pour le 1er fichier à décompresser

et C:\compress.pl pour le logiciel

c'est trop nul de leur donner le même nom, je note ...
je peu t'envoyer des fichiers .log.gz si tu veux
16/07/2009, 14h50
djibril

Vas y envoie le car j'arrive pas à reproduire ton souci
16/07/2009, 14h56
grego..

voila donc a mettre sous c:/, dézippé bien sur
le prog est sous c:/ aussi

merci bcp

Tu as codé comme un cochon :aie:

Code:

1
2
 
push( @fichiers, $SYSLOG_DIR . "/$nom\n" );

au lieu de

Code:

push( @fichiers, $SYSLOG_DIR . "/$nom" );

Un retour à la ligne qui n'a pas sa place, du coup, le module est incapable de lire le fichier.

Pour t'en persuader :

Code:

1
2
print "==>$LesFichiers[$i]<==\n";
print "==>$SYSLOG_DIR"."/compress.log.gz<==\n" ;

;)

Voilà :

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
60
61
62
63
64
65
66
67
#!/usr/bin/perl
use DBI;
use strict;
use warnings;
 
my $LECTEUR    = "C:\\";      # lecteur d'installation
my $SYSLOG_DIR = "$LECTEUR"  . "Source";    # répertoire d'installation du fichier syslog à analyser
 
print "Ouverture du repertoire $SYSLOG_DIR\n";
opendir( SYSLOGDIR, $SYSLOG_DIR ) or die "Impossible d'ouvrir $SYSLOG_DIR";
 
# ------------------------------------------------------------------------------------------------
# Fonction lister les fichiers contenus dans $SYSLOG_DIR
# le nom des fichiers est dans une table : @LesFichiers
# ------------------------------------------------------------------------------------------------
 
my @LesFichiers = ListersFichiers($SYSLOG_DIR);
my $NbrFichiers = @LesFichiers;
print " Il y a $NbrFichiers fichiers log dans le repertoire\n";
print "les fichiers a traiter sont :\n";
foreach ( @LesFichiers ) {
  print "- $_\n";
}
#------------------------------------------------------------------------------
#           décompresser fichiers, copie dans C:/temp
#------------------------------------------------------------------------------
 
use Archive::Extract;
my $DEST = "$LECTEUR" . "/temp";
 
ExtraireFichier();
 
 
 
 
sub ExtraireFichier {
 
  # je vérifie que les 2 adresses sont les mêmes pour i=0
  my $i = 0;
  $LesFichiers[$i] =~ s{\\}{/}g;
  print "ExtraireFichier : '",$LesFichiers[$i],"'\n";
  my $ae = Archive::Extract ->new( archive => $LesFichiers[$i]);
  my $ok = $ae->extract( to => "$DEST" ) or die $ae->error;
  my $files_ref = $ae->files;
 
  # Afficher les fichiers
  foreach my $fichier ( @{$files_ref} ) {
    print "- $fichier\n";
  }
}
 
sub ListersFichiers {
  my ($SYSLOG_DIR) = @_;
  my @fichiers;
 
  # Liste fichiers et répertoire sauf (. et ..)
  my @Contenu = grep { !/^\.\.?$/ } readdir(SYSLOGDIR);
 
  # Fermeture du répertoire
  closedir(SYSLOGDIR);
 
  # On récupère tous les fichiers
  foreach my $nom (@Contenu) {
    push( @fichiers, $SYSLOG_DIR . "/$nom" );
  }
  return @fichiers;
}

16/07/2009, 15h29
grego..

oui tu es un chef !
c'est vrai que je code comme un cochon, en fait c'est mon 1er code en perl ;)
maintenant je vais pouvoir faire la partie parseur ! (après avoir compris tes modifs)
tu me dépannes et en plus tu me donnes des leçons
vraiment merci