如何在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()。什么是最适当/优雅的方式来设计在子程序和调用例程中的错误捕获,以便我获得捕获和未捕获错误的正确行为?

解决方法

你可以把它包装在一个eval。看到:
perldoc -f eval

例如,你可以写:

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

这将把致命错误转变成一个警告,这或多或少是你建议的。如果调用,$ @包含传递给它的字符串。

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...