Как мне обрабатывать перехваченные и неперехваченные ошибки в подпрограмме Perl?

Это продолжение "Как мне обойти вызов 'die' в библиотеке Perl, которую я не могу модифицировать?".

У меня есть подпрограмма, которая много раз вызывает Library-Which-Crashes-Sometimes. Вместо того, чтобы связывать каждый вызов в этой подпрограмме с eval{}, я просто позволяю ему умереть и использую eval{} на уровне, который вызывает мою подпрограмму:

my $status=eval{function($param);};
unless($status){print $@; next;}; # print error and go to
                                  # next file if function() fails

Однако есть условия ошибки, которые я могу уловить в функции(). Каков наиболее правильный/элегантный способ разработки перехвата ошибок в подпрограмме и вызывающей подпрограмме, чтобы я получил правильное поведение как для перехваченных, так и для необработанных ошибок?


error-handling perl die
person Ed Hyer    schedule 25.03.2009    source источник

Ответы (2)


arrow_upward
8
arrow_downward

Блок eval может быть вложенным:

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 $@";
};
person Chas. Owens    schedule 25.03.2009
comment
Ваши брекеты выглядят шикарно! +1 - person Axeman; 26.03.2009
comment
Ну, я полировал их сегодня утром. - person Chas. Owens; 26.03.2009

arrow_upward
0
arrow_downward

Я не совсем уверен, что вы хотите сделать, но я думаю, вы можете сделать это с помощью обработчика.

$SIG{__DIE__} = sub { print $@ } ;

eval{ function($param); 1 } or next;
person Leon Timmermans    schedule 25.03.2009