Archive::Extract - out of memory

**nikita006** · 02/12/2010, 09h24

Envoyé par djibril

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 ?

**djibril** · 02/12/2010, 10h42

Sous Linux, si ton archive est très grosse (via un test de taille), tu peux passer la variable $Archive::Extract::PREFER_BIN à true pour utiliser la ligne de commande.

Sous Windows, Tu peux utiliser Izarc en ligne de commande si tes archives sont très grosses, ça fonctionne très bien.

**nikita006** · 02/12/2010, 11h43

Merci pour ta réponse djibril, ca veut dire qu'il n'y a pas de moyen pur perl de traiter les tgz incluant de trop gros fichiers.
J'ai aussi la possibilité sous Windows de lancer le script perl dans un environnement cygwin, configuré avec perl et tar.

**djibril** · 02/12/2010, 12h17

Envoyé par nikita006

Merci pour ta réponse djibril, ca veut dire qu'il n'y a pas de moyen pur perl de traiter les tgz incluant de trop gros fichiers.

Si, Archive::Extract

, mais ton out of memory n'est pas un souci perl mais un souci de mémoire suffisante

. Si tu travailles sur un Pc ou serveur ayant assez de mémoire RAM, tu n'auras pas ce souci.

**nikita006** · 02/12/2010, 14h13

Je suis sur un PC Windows XP avec 4Go de RAM, et je suis loin d'utiliser toute la mémoire du système !
Est-ce que perl (ActivePerl 5.12.2) est limité dans l'allocation de mémoire ?
Lorsque je regarde dans Task Manager, le process perl.exe plante toujours aux alentours de 250Mo de Mem Usage...