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