Discussion :

[donny]

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.

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

[Jasmine80]

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 :

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

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.

[donny]

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 :

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

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 :

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

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.

[Jasmine80]

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 :

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

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

[donny]

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.

[Jasmine80]

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.

[donny]

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 :

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

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

[Jedai]

Code :

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

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ï