如何在Perl库中解决一个’die’调用,我不能修改？

基本上，我处理一个写得不好的Perl库，当遇到读取文件的特定错误条件时退出。我从一个程序调用这个例程，该程序循环通过成千上万的文件，其中一些是坏的。坏文件发生;我只是想让我的例程记录错误，继续前进。

如果我可以修改库，我只是改变

die "error";

到a

print "error";return;

， 但是我不能。有什么办法，我可以沙发程序，以便坏文件不会崩溃整个过程？

FOLLOWUP QUESTION：使用一个“eval”沙发碰撞倾向的调用工作很好，但如何设置处理可捕获错误在该框架内？来描述：

我有一个子程序调用库 – 这 – 崩溃 – 有时多次。而不是在这个子程序中用eval {}来调用每个调用，我只是允许它死掉，并在调用我的子程序的级别上使用eval {}：

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

但是，有一些错误条件，我可以，并捕获在function()。什么是最适当/优雅的方式来设计在子程序和调用例程中的错误捕获，以便我获得捕获和未捕获错误的正确行为？