Exceptions en perl
De drev
eval { ... }; if ($@) { say 'The error is: '.$@; }
Recommencer une opération jusqu'à réussite.
do{ eval { #Opération périlleuse : exemple requête sur un réseau }; if ($@) { say 'The error is: '.$@; } } while($@);