Discussion :

[nikita006]

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 :

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

Bonjour,

J'ai également un souci pour extraire des archives .tgz.
En utilisant le module Archive::Extract ou Archive::Tar, j'ai toujours le même problème : Out of memory!

Plus précisément, le problème arrive dès que mon archive .tgz contient des gros fichiers (par exemple plus de 100Mo), sinon pas de problème. Pour des raisons de portabilité je souhaite utiliser une solution pure perl, car mon script est susceptible d'être utilisé par d'autre sous Windows.

J'ai bien trouvé un binaire tar pour Windows mais il ne supporte pas l'option z.

Existe-t'il d'autres moyens pour extraire des .tgz en pur perl ?
Sinon connaissez-vous un binaire tar qui supporte les tgz ?