Extraire une archive tgz avec un script perl

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:

---

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:

---

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...)

Utilise le module Archive::Extract

Rapide la réponse :)

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

Code:

---

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 :king:

Premier conseil :

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

Utilisez use warnings et strict;

essaye ceci :

Citation:

---

ppm install Archive::Extract -f

---

Code:

---

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";

---

8O 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 :)

si tu fais en console

Code:

---

perl -MArchive::Extract -e ""

---

, as tu un message d'erreur ?

Non

Pour pas mettre que "non" : A quoi sert cette commande s'il te plait ? :roll:

Si tu continues ta suite en temps de réponse tu dois répondre en moins d'une minute ! (1ere réponse : délai 10 minutes, 2eme : 7 minutes, 3eme : 4 minutes...) Juqu'où ira Djibril ?!

cette une ligne de command Perl te permettant de faire du unline. Donc elle fait l'equivalent d'un use Module;

As tu un répertoire D:/tmp ?

(raté tu plafonnes à 4 minutes :) )

Oui le répertoire a été crée par le script.

et tu as un message d'erreur ou non ?

(8O Oh mon dieu il l'a fait : la réponse en moins d'1 minute ! 8O)

Non j'ai rien je ne crois pas qu'il interprète mon code (vu qu'il ne m'affiche pas d'erreur ni mon print...)

j'ai essayé : perl -MArchive::Extract -e "" et perl -MArchive::Extract -e "test.pl"

non, je te demande pas ça

Code:

---

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";

---

Te donne quel résultat ?

Exactement la même erreur que mon deuxième post :

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 7
No '/bin/tar' program found at test.pl line 7
Unable to untar file 'D:\mes tests\test archive\Mon_fichier_au_2009-04-20.txt.tgz' at test.pl line 7
Extract failed, no extractor found at test.pl line 7
Extract failed, no extractor found at test.pl line 7.

:(

as tu un utilitaire de compression sur ton PC (winzip, izarc ou autre ) ?

oui 7zip

Edit : Bon je profite de ton départ pour rentrer chez moi. Encore merci pour ton aide, j'espère être suffisament opérationnel pour pouvoir aider à mon tour, un jour... :)

Bien sûr toute personne pensant pouvoir relever ce défi peuvent se joindre à nous ! :mouarf:

t'es sur que ton archive D:/mes tests/test archive/Mon_fichier_au_2009-04-20.txt.tgz n'est pas pourri ?

:lol: Nan il s'ouvre convenablement avec une extraction "manuelle".

Je suis chez moi là mais j'essaierai d'en recréer un demain sinon...

bah tu peux en recreer un au pif de chez toi et tester le script ;)

Dak si j'ai le temps, j'ai des invités après. Donc pas sûr ! En tout cas demain je continuerai :)

Ok j'ai donc fait deux essais intéressants : Le premier sur un fichier d'abord transformer en archive .tar puis en gzip pour obtenir un fichier tar.gz. Là le script a marché niquel. Puis j'ai récupérer mon fichier de test .tgz et là même erreur qu'au boulot. Faudrait que je teste sur un autre fichier et que je me renseigne comment ces fichiers sont archivés. En tout cas manuellement (avec 7zip) le fichier s'ouvre !

Bien merci pour ton aide, c'est bien de mon côté que ça marche pas. :)