Exceptions en perl

De drev
Aller à : navigation, rechercher
  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($@);