Decompression d'un fichier sans utiliser les modules du CPAN

Bonjour,

Je dois décompresser un fichier zip à partir d'un programme perl.
Je n'ai malheureusement pas à ma disposition de module du CPAN me permettant de réaliser cette décompression (pour plusieurs raisons, je n'ai pas la possibilité d'installer l'un de ces modules).

J'utilise donc une commande de ce type :

Code:

---

1 2	@resultat = `gunzip -S .zip monFichier.zip`;

---

Celal fonctionne correctement, sauf si quelque chose se passe mal (le fichier n'existe pas, n'est pas au format zip ....).
Comment tester si quelque chose s'est mal passé :?:

Merci de vos réponses

Salut !

Essai avec un bloc eval contenant un system() :

Code:

---

1 2 3

eval { system("gunzip -S .zip monFichier.zip"); } or warn "Impossible\n";

---

Je pense que ceci fonctionne, l'eval permettant l'error trapping.

Bon code :wink:

Bonjour,

Merci pour ta réponse, mais ça ne fonctionne pas top, elle fait exactement l'inverse de ce qu'on attend d'elle :cry: (cela m'affiche "impossible" dès que la décompression est réussie).

J'ai trouvé une autre solution qui semble fonctionner :

Code:

---

1 2 3 4 5

$res = `gunzip -S .zip monFichier.zip`; $res = `echo $?`; chomp ($res); print "Décompression impossible \n" if $res ne '0';

---

Ce que je ne suis pas sur, c'est de savoir si `echo $?` ne me renverra jamais '0' si il y a une erreur. Quelqu'un a-t-il la réponse?

@+

Citation:

---

Envoyé par choubiroute

Bonjour,

Merci pour ta réponse, mais ça ne fonctionne pas top, elle fait exactement l'inverse de ce qu'on attend d'elle :cry: (cela m'affiche "impossible" dès que la décompression est réussie).

J'ai trouvé une autre solution qui semble fonctionner :

Code:

---

1 2 3 4 5

$res = `gunzip -S .zip monFichier.zip`; $res = `echo $?`; chomp ($res); print "Décompression impossible \n" if $res ne '0';

---

Ce que je ne suis pas sur, c'est de savoir si `echo $?` ne me renverra jamais '0' si il y a une erreur. Quelqu'un a-t-il la réponse?

@+

---

Il vaut mieux faire ceci :

Code:

---

1 2 3

$res = `gunzip -S .zip monFichier.zip`; print "Décompression impossible \n" if $? != 0;

---

$? est une variable Perl qui contient le code d'erreur du dernier sous-processus lancé (donc fork(), system(), ``). Si le code d'erreur renvoyé par gunzip est différent de 0, cela indique une erreur.

--
Jedaï

NB : S'il s'agit seulement de décompresser et que tu n'as pas besoin de la sortie de la commande 'gunzip', tu peux directement utiliser system() :

Code:

---

1 2 3

system("gunzip -S .zip monFichier.zip") and warn "Impossible\n";

---

(le eval est inutile ici, et exceptionnellement on doit utiliser un 'and' plutôt qu'un 'or' pour le contrôle d'erreur, parce que system renvoie 0 (valeur fausse) en cas de succès, alors que les autres fonctions renvoient plutôt une valeur vraie en cas de succès).

--
Jedaï

Oups, autant pour moi, un petit oubli de ma part, l'habitude de contrôler les erreurs avec un or die ou un or warn...

Désolé !

Citation:

---

Envoyé par Woufeil

Essai avec un bloc eval contenant un system() :

Code:

---

1 2 3

eval { system("gunzip -S .zip monFichier.zip"); } or warn "Impossible\n";

---

---

Ca ne peut pas fonctionner à cause d'un "piège à con":
l'eval renvoie la valeur renvoyée par le system. Hors, une commande système renvoie 0 en cas de succes; et autre chose en cas de probleme.

En cas de probleme, le system renvoie une valeur true, et le "or warn" n'est donc pas exécuté. Il faut donc mettre "and warn".

De plus, le bloc eval ne sert ici a rien, car un system à problème ne fera pas planter ton script.

C'est donc:

Code:

---

system("gunzip -S .zip monFichier.zip") and warn "Impossible\n";

---