私はPerlのサブルーチン内でキャッチされ、不明なエラーの両方をどのように扱うのですか？

StackOverflow https://stackoverflow.com/questions/683672

  •  22-08-2019
  •  | 
  •  

質問

これは<のhref = "https://stackoverflow.com/questions/451227/how-can-i-get-around-a-die-call-in-a-perl-library-iにフォローされ「>」モディファイ-cantどのように私は私が変更することはできませんPerlのライブラリに呼び出す「死ぬ」？ "の周りを取得することができます。

私は図書館-どの-クラッシュ - 時には何度も呼び出すサブルーチンを持っています。むしろソファよりはeval {}と、このサブルーチン内の各呼び出しは、私はちょうどそれが死ぬことを許可し、私のサブルーチンを呼び出すレベルではeval {}を使用します：

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

しかし、私はと機能でキャッチしないことができますエラー条件は、（）があります。私がキャッチされ、不明なエラーの両方のための正しい動作を取得するようにサブルーチンと呼び出すルーチンでエラーを引くを設計するための最も適切な/エレガントな方法は何ですか？

役に立ちましたか？

解決

ブロックの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 $@";
};

他のヒント

私はあなたが何をしたいのか全くわからないんだけど、私はあなたがハンドラでそれを行うことができると思います。

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

eval{ function($param); 1 } or next;
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top