Discussion :

[lalystar]

Bonjour,


Je voudrais savoir s'il y a moyen en PERL de catcher les erreurs à un niveau global et de sortir le cas échéant, plutot que de tester à chaque instruction, par exemple :

Code :

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

1
2
 
open(FILE, "toto.txt") || exit (1);

Merci,

Laly.

[etranger]

premierement, tu pourait ecrire ton test de cette maniere

Code :

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

open FICHIER , "<".$file_name or die "Impossible d'ouvrir \"$file_name\" : $!";

Sa te donnera plus d'informations sur l'exception.

Sinon rensegne toi sur l'instruction eval.

[lalystar]

Merci, eval c'est exactement ce qu'il me fallait !


Laly.

[Woufeil]

Pour une gestion des exceptions à la Java, try sera rempalcé par eval, catch par if($@) et throw par die (si un die est testé dans un bloc eval, il ne termine pas la programme mais envoie une exception).

Voilà !