Como posso lidar com ambos os erros capturados e não capturadas em uma sub-rotina Perl?
-
22-08-2019 - |
Pergunta
Esta é uma continuação a " Como posso obter em torno de uma chamada de 'die' em uma biblioteca Perl não pode modificar? ".
Eu tenho uma sub-rotina que chama uma biblioteca de Quais-Crashes-Às vezes muitas vezes. Em vez de sofá cada chamada dentro deste sub-rotina com um eval {}, eu só deixá-lo morrer, e usar um eval {} no nível que chama a minha rotina:
my $status=eval{function($param);};
unless($status){print $@; next;}; # print error and go to
# next file if function() fails
No entanto, há condições de erro que eu puder e fazer capturas no function (). Qual é a forma mais adequada / elegante para projetar o erro captura na sub-rotina e a rotina de chamada para que eu obter o comportamento correto para ambos os erros capturados e não capturadas?
Solução
Bloco eval pode ser aninhados:
sub function {
eval {
die "error that can be handled\n";
1;
} or do {
#propagate the error if it isn't the one we expect
die $@ unless $@ eq "error that can be handled\n";
#handle the error
};
die "uncaught error";
}
eval { function(); 1 } or do {
warn "caught error $@";
};
Outras dicas
Eu não estou completamente certo o que você quer fazer, mas acho que você pode fazê-lo com um manipulador.
$SIG{__DIE__} = sub { print $@ } ;
eval{ function($param); 1 } or next;