Discussion :

[myspanique]

Bonjour,

J'ai regardé la doc de warn et die, mais j'ai un peu de mal à comprendre concrètement la levée d'exceptions :
je voudrais que mon programme effectue une toute dernière action en cas d'erreur avant de mourir.
j'ai tenté des trucs du genre

Code perl :

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

fais_ton_truc() || {ultime_sursaut() ; die};

mais il n'aime pas du tout.
J'ai cru comprendre qu'il fallait passer par un eval{} ? Je ne sais pas vraiment ni ce que ça change, ni comment m'y prendre.

des conseils?
d'avance merci !

[Lolo78]

Si la fonction fais-ton-truc() fais elle-même un die ou quelque chose d'équivalent, alors il faut effectivement la
mettre dans un eval pour éviter que l'ensemble du programme sorte immédiatement en erreur. Qu'y a-t-il dans fais-ton-truc()?

[myspanique]

Eh bien pour donner un peu de détails, fais-ton-truc() discute avec un port série.
Si le port ne répond pas, mon processus meurt.
Mais avant, j'aimerais qu'il supprime un fichier créé au lancement du processus...

[Philou67430]

Un bloc de code (entre { }) qui lève une exception (appelle die), évalué dans une instruction eval va fonctionner comme un "try/catch".
A la sortie de eval, la valeur de $@ contiendra le texte du die (undef si l'évaluation n'a pas levé d'exception).
Voir : perldoc eval

[Lolo78]

Pour donner un petit exemple à la ligne de commande:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
$  perl -e 'eval {print "toto\n";
>  die "je meurs \n";
>  print "titi";
> };
>  print "$@ \n"; print "tutu" if $@;'
toto
je meurs
 
tutu

A priori, il suffit de remplacer la ligne "print "tutu" if $@;" par ce dont tu as besoin (si du moins j'ai bien compris le besoin).

[Philou67430]

Attention lolo, dans ton exemple, le print "tutu" n'est pas exécuté car le print "$@" ne lève pas d'exception, et re-initialise donc $@ à undef.
Pour que le try/catch fonctionne, il faut impérativement que l'instruction qui teste $@ suit immédiatement après l'instruction eval.

[myspanique]

sauf que de mémoire le die après un ";" il aime pas trop, si?
Je pars quelques jours en vacances, je m'y repenche à mon retour, mais déjà merci pour vos réponses !

[Lolo78]

Attention lolo, dans ton exemple, le print "tutu" n'est pas exécuté car le print "$@" ne lève pas d'exception, et re-initialise donc $@ à undef.

Ben si, il est bien exécuté, comme on le voit dans mon exemple à la ligne de commande...

Code :

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

1
2
3
4
5
 
toto
je meurs
 
tutu

Pour que le try/catch fonctionne, il faut impérativement que l'instruction qui teste $@ suit immédiatement après l'instruction eval.

Je suis bien d'accord, mais je suppose que si tu écris une instruction avec modificateur:

Code :

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

1
2
 
print "Carpe diem" if $flag

la valeur de $flag est évaluée avant toute autre chose, et en particulier forcément avant le deuxième print. Et il semble que le premier print n'affecte pas $@. Mais j'avoue volontiers que je n'ai jamais trouvé cette construction très fiable, on a souvent des surprises et je tends à l'éviter.

C'était juste un exemple simple à la ligne de commande, il semble fonctionner (ou alors j'ai loupé quelque chose).

[Lolo78]

sauf que de mémoire le die après un ";" il aime pas trop, si?

Pourquoi donc? Pas à ma connaissance en tout cas.

[Philou67430]

Je ne sais pas où j'ai les yeux ce moment, mais surement pas en face des orbites.
Du coup, pour comprendre mon explication foireuse, je suis allé vérifier le mode d'affectation de $@ dans perldoc perlvar, et effectivement, il n'est réinitialisé qu'après un eval sans exception.