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 :
(merci à GLDavid et la FAQ
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;)
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...)
Partager