Discussion :

[choubiroute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Woufeil]

Salut !

Essai avec un bloc eval contenant un system() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 (cela m'affiche "impossible" dès que la décompression est réussie).

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

@+

[Jedai]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[Woufeil]

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é !

[mhooreman]

Essai avec un bloc eval contenant un system() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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