Как я могу обойти вызов die в библиотеке Perl, которую я не могу изменить? - PullRequest
Новая
       18

Как я могу обойти вызов die в библиотеке Perl, которую я не могу изменить?

27 голосов
/ 16 января 2009

Да, проблема связана с библиотекой, которую я использую, и нет, я не могу ее изменить. Мне нужен обходной путь.

По сути, я имею дело с плохо написанной библиотекой Perl, которая завершается с 'die', когда при чтении файла возникает определенная ошибка. Я вызываю эту процедуру из программы, которая просматривает тысячи файлов, несколько из которых плохие. Плохие файлы случаются; Я просто хочу, чтобы моя процедура регистрировала ошибку и продолжала.

Если бы я мог изменить библиотеку, я бы просто изменил 

die "error";

до 

print "error";return;

, но я не могу. Можно ли как-нибудь составить программу, чтобы плохие файлы не приводили к сбою всего процесса?

СЛЕДУЮЩИЙ ВОПРОС: Использование eval для записи вызова, склонного к сбоям, работает хорошо, но как мне настроить обработку ошибок, способных перехватываться в этой среде? Для описания:

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

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

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

Ответы [ 3 ]

65 голосов
/ 16 января 2009

Вы можете обернуть его в eval. См: 

perldoc -f eval

Например, вы можете написать: 

# warn if routine calls die
eval { routine_might_die }; warn $@ if $@;

Это превратит фатальную ошибку в предупреждение, более или менее то, что вы предложили. Если вызывается die, $@ содержит переданную ему строку.

27 голосов
/ 16 января 2009

Это ловушка $SIG{__DIE__}? Если это так, то это более локально, чем вы. Но есть пара стратегий:

  • Вы можете вызвать его пакет и переопределить die: 

    package Library::Dumb::Dyer;
use subs 'die';
sub die {
    my ( $package, $file, $line ) = caller();
    unless ( $decider->decide( $file, $package, $line ) eq 'DUMB' ) {
        say "It's a good death.";
        die @_;
   }
}

  • Если нет, то может заманить в ловушку . (ищите $ SIG на странице, уценка не обрабатывает полную ссылку.) 

    my $old_die_handler = $SIG{__DIE__};
sub _death_handler { 
    my ( $package, $file, $line ) = caller();
    unless ( $decider->decide( $file, $package, $line ) eq 'DUMB DIE' ) {
        say "It's a good death.";
        goto &$old_die_handler;
    }
}
$SIG{__DIE__} = \&_death_handler;

  • Возможно, вам придется отсканировать библиотеку, найти подпрограмму, которую она всегда вызывает, и использовать ее для загрузки обработчика $SIG путем переопределения that. 

    my $dumb_package_do_something_dumb = \&Dumb::do_something_dumb;
*Dumb::do_something_dumb = sub { 
    $SIG{__DIE__} = ...
    goto &$dumb_package_do_something_dumb;
};

  • Или переопределить встроенную функцию, которую он всегда вызывает ... 

    package Dumb; 
use subs 'chdir';
sub chdir { 
    $SIG{__DIE__} = ...
    CORE::chdir @_;
};

  • Если ничего не помогает, вы можете поднять глаз лошади с помощью этого: 

    package CORE::GLOBAL;
use subs 'die';

sub die { 
    ... 
    CORE::die @_;
}

Это переопределит die в глобальном масштабе, единственный способ вернуть die - это указать его как CORE::die.

Некоторая комбинация этого будет работать.

8 голосов
/ 27 января 2010

Хотя изменение die на «не умереть» имеет конкретное решение, как показано в других ответах, в целом вы всегда можете переопределить подпрограммы в других пакетах. Вы вообще не меняете исходный источник.

Сначала загрузите оригинальный пакет, чтобы получить все исходные определения. Как только оригинал будет на месте, вы можете переопределить проблемную подпрограмму: 

 BEGIN {
      use Original::Lib;

      no warnings 'redefine';

      sub Original::Lib::some_sub { ... }
      }

Вы можете даже вырезать и вставить оригинальное определение и настроить то, что вам нужно. Это не очень хорошее решение, но если вы не можете изменить исходный источник (или хотите что-то попробовать, прежде чем изменить исходный), оно может работать.

Кроме того, вы можете скопировать исходный файл в отдельный каталог для вашего приложения. Поскольку вы управляете этим каталогом, вы можете редактировать файлы в нем. Вы изменяете эту копию и загружаете ее, добавляя этот каталог в путь поиска модулей Perl: 

use lib qw(/that/new/directory);
use Original::Lib;  # should find the one in /that/new/directory

Ваша копия остается на месте, даже если кто-то обновляет исходный модуль (хотя вам может потребоваться объединить изменения).

Я довольно много об этом говорю в Мастеринг Perl , где я показываю некоторые другие приемы для подобных вещей. Хитрость в том, чтобы не сломать вещи еще больше. То, как вы не сломаете вещи, зависит от того, что вы делаете.

...