Extraire une archive tgz avec un script perl

**Olivier.p** · 28/04/2009, 16h37

Bonjour,

Comme l'indique l'intitulé je cherche à extraire une archive tgz grâce à un scrip perl. J'ai essayé le module Archive::Tar mais ça ne marche pas... J'ai aussi installé le module IO::Zlib, pas plus de succès.

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
#!C:\\Perl\\bin
use Archive::Tar;
my $tar = Archive::Tar->new;
$tar->read("D:\\mes tests\\test archive\\Mon_fichier_au_2009-04-20.txt.tgz",1);
$tar->extract();

Note : ca ressemble beaucoup à la perldoc

Message d'erreur :

Cannot read compressed format in tar-mode at test.pl line 4
No files found for D:\mes tests\test archive\Mon_fichier_au_2009-04-20.txt.tgz at test.pl line 5

Le code ci-dessous me permet de vérifier que le fichier est bien dans ce répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
#!C:\\Perl\\bin
my ($fichier, $dossier) = (undef, "D:\\mes tests\\test archive");
opendir (my $dir, $dossier) or die "$dossier n'existe pas !";
my @files = readdir $dir;
print "Mes fichiers : @files\n";
closedir $dir;

(merci à GLDavid et la FAQ

)

Quelqu'un a une idée ?

En attendant je vais me replonger pour la n ème fois dans la perldoc, elle est pourtant claire... Merci du coup de pouce

Ps : mon script tourne sous win Xp avec ActivePerl (je ne pense pas que ça ait un impact mais bon...)

**djibril** · 28/04/2009, 16h47

Utilise le module Archive::Extract

**Olivier.p** · 28/04/2009, 17h22

Rapide la réponse

Grâce à ce module (qui était fourni avec ActivePerl) voilà ce que j'ai pondu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
#!C:\\Perl\\bin
use Archive::Extract;
my $file = "D:\\mes tests\\test archive\\Mon_fichier_au_2009-04-20.txt.tgz";
my $ae = Archive::Extract ->new( archive => "$file");
my $ok = $ae -> extract( to => "\\tmp") or die $ae -> error;
my $check = $ae -> is_tgz;
print "check = $check\n";

L'erreur retournée :
Cannot read compressed format in tar-mode at C:/Perl/lib/Archive/Extract.pm line 673
Unable to read 'D:\mes tests\test archive\Mon_fichier_au_2009-04-20.txt.tgz' : Cannot read compressed format in tar-mode at test.pl line 5
No '/bin/tar' program found at test.pl line 5
Unable to untar file 'D:\mes tests\test archive\Mon_fichier_au_2009-04-20.txt.tgz' at test.pl line 5
Extract failed, no extractor found at test.pl line 5
Extract failed, no extractor found at test.pl line 5.

Si j'enlève la ligne 5 (my $ok = $ae -> extract( to => "\\tmp") or die $ae -> error

j'obtiens bien 1 pour le check.

J'ai l'impression qu'il ne trouve pas Extract.pm(le chemin est en "/" au lieu du "\" pour Windows, 1ere ligne de l'erreur) le problème peut il venir de là ?

Merci en tout cas pour ton aide, très efficace la communauté de ce forum

**djibril** · 28/04/2009, 17h29

Premier conseil :

Evitez les \\ dans les chemins en Perl. Perl est très intelligent et prefere la notation / comme sous linux

.

Utilisez use warnings et strict;

essaye ceci :

ppm install Archive::Extract -f

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use warnings;
use strict;
use Archive::Extract;
my $file = "D:/mes tests/test archive/Mon_fichier_au_2009-04-20.txt.tgz";
my $ae = Archive::Extract ->new( archive => $file);
my $ok = $ae -> extract( to => "D:/tmp") or die $ae -> error;
my $check = $ae -> is_tgz;
print "check = $check\n";

**Olivier.p** · 28/04/2009, 17h39

Mais tu es trop rapide ! Serais tu un script perl ultra performant dont la mission est de répondre aux usagers désoeuvrés de ce langage ?!

J'ai récupéré le code que tu as mis mais ça ne marche toujours pas et je n'ai pas plus d'informations dans le message d'erreur.

Je ne peux pas installer le module via la console, la connexion a échoué. Je pense que les rêgles de sécurité empèchent ce type de connexion (je suis au boulot).

J'essaierai ce soir à la maison.

Merci pour le temps que tu me consacres et l'astuce du "/". Je découvre perl est c'est vraiment un super langage, il m'épate de plus en plus