Как мне обрабатывать как перехваченные, так и неперехваченные ошибки в подпрограмме Perl?
-
22-08-2019 - |
Вопрос
Это продолжение "Как я могу обойти вызов ‘die’ в библиотеке Perl, которую я не могу изменить?".
У меня есть подпрограмма, которая вызывает Библиотеку, Которая иногда выходит из строя много раз.Вместо того, чтобы обрабатывать каждый вызов в рамках этой подпрограммы с помощью eval{}, я просто разрешаю ему умереть и использую eval{} на уровне, который вызывает мою подпрограмму:
my $status=eval{function($param);};
unless($status){print $@; next;}; # print error and go to
# next file if function() fails
Однако существуют условия ошибки, которые я могу и выполняю в function().Каков наиболее правильный / элегантный способ спроектировать перехват ошибок в подпрограмме и вызывающей подпрограмме, чтобы я получал правильное поведение как для перехваченных, так и для неперехваченных ошибок?
Решение
Оценка блока может быть вложенной:
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 $@";
};
Другие советы
Я не совсем уверен, что вы хотите сделать, но я думаю, вы можете сделать это с помощью обработчика.
$SIG{__DIE__} = sub { print $@ } ;
eval{ function($param); 1 } or next;