gestion des erreur sous perl

Salut,

Voici mon soucis,
en perl avec certains module comme ftp,dbi,
quand une methode ne fonctionne pas avec le "or die" on sort du programme.

Citation:

---

or die "Cannot login ", $ftp->message;

---

moi ce que je voudrais , est que si ça plante alors, je recupere le message d'erreur dans ma log et je sors du prod;

merci

Citation:

---

Envoyé par donny

moi ce que je voudrais , est que si ça plante alors, je recupere le message d'erreur dans ma log et je sors du prod;

---

Le 'prod' est le programme je suppose. Le die te fait sortir du programme, il y a aussi l'exit() si tu préfères mais je ne vois pas ce que tu as contre le die.

Code:

---

1 2 3

open my $log_file, '>>', 'chemin/fichier_log' or die $_; ... ... or die print $log_file "Cannot login $ftp->message";

---

Tu peux aussi dire que STDERR (à moins que ce ne soit STDOUT) est ton fichier log et non l'écran.

en faite, je me suis mal exprimé
j'utilise log4perl pour la log

mais le truc que je n'arrive pas à faire,
c'est par exemple quand j'utilise

Code:

---

1 2	ftp->login("$machine",'test') or die "Cannot login ", $ftp->message;

---

en faite je ne veux pas que mon programme plante quand il n'arrive pas a se loguer;
donc je souhaite enlever le die.

Le problème est que si je l'enleve comment je vais savoir que mon programme n'a pas reussi à se loguer ??

Je pourrai utiliser un eval par example :

Code:

---

1 2 3 4 5 6

eval { ftp->login("$machine",'test') or die "Cannot login ", $ftp->message; if ($@) { $malog->fatal("Erreur de login");exit 1; }

---

Mais le soucis, c'est comment je peux savoir que ça a planter ???
a moins de tester tout les codes retour du ftp login,
c est une mission impossible.

Citation:

---

Envoyé par donny

en faite je ne veux pas que mon programme plante quand il n'arrive pas a se loguer;
donc je souhaite enlever le die

Mais le soucis, c'est comment je peux savoir que ça a planter ???
a moins de tester tout les codes retour du ftp login,
c est une mission impossible.

---

Utilise warn au lieu de die.

Code:

---

1 2	ftp->login("$machine",'test') or warn "Cannot login ", $ftp->message;

---

d'accord mais sa resouds pas completement mon problème,
le warn ne va pas bloquer mon programme certes,
mais moi je fais comment pour tester que c'est en erreur.
Je suis obliger de tester le code retour de chaque erreur et les code retour sont different.

Alors que le die , quand il y a une erreur , fait planter mon script.
Moi ce que je voudrais en faite, c'est pouvoir detecter l'erreur comme le die.

Citation:

---

Envoyé par donny

Alors que le die , quand il y a une erreur , fait planter mon script.
Moi ce que je voudrais en faite, c'est pouvoir detecter l'erreur comme le die.

---

warn te donne également les erreurs sur STDERR tout comme die. La seule différence entre ces 2 fonctions est que warn ne force pas le script à s'arrêter. Si tu ne veux pas écrire sur STDERR redirige les messages vers ton fichier log.

je connais la difference entre les deux, je te remerci

en faite, je viens de relire ta premiere intervention
faire un truc comme cela (je viens de tester)

Code:

---

1 2	ftp->login("$machine",'test') or die $malog->fatal("Error :".$ftp->message);

---

c'est propre ?c'est "PERL" ?

Parceque si sa l'est c'est bon,
je retrouve bien le message dans mon fichier de log
et cela fait bien planter mon script

Citation:

---

Envoyé par donny

Code:

---

1 2	ftp->login("$machine",'test') or die $malog->fatal("Error :".$ftp->message);

---

c'est propre ?c'est "PERL" ?

---

Pas vraiment. Néanmoins, Log4Perl a bien sûr prévu cette éventualité très courante, il suffit d'utiliser logdie() à la place de die().

--
Jedaï