Perl sigdie处理程序和eval

发布时间：2020-12-16 06:05:43 所属栏目：大数据来源：网络整理

导读：我在我的Logger模块中覆盖了我的SIG模具处理程序. # Catch die messages and log them with logdie$SIG{__DIE__} = logdie; 现在,程序按预期运行,将调用后处理. use strict;use warnings;use File::Path;# use MyLogger;my $dir="/random";eval { # local $

我在我的Logger模块中覆盖了我的SIG模具处理程序.

# Catch die messages and log them with logdie
$SIG{__DIE__} = &;logdie;

现在,程序按预期运行,将调用后处理.

use strict;
use warnings;
use File::Path;
# use MyLogger;

my $dir="/random";
eval {
  # local $SIG{__DIE__};
  File::Path::make_path($dir);
};
if($@) {
 warn("Cannot create $dir :$@ n");
}
print "Post processing n";

但是,如果我包含我的记录器模块并添加使用MyLogger,则代码在eval语句中失败并出现以下错误,并且不会调用后处理.

[错误] 2015/04/27 22:19:07 Carp.pm:166u0026gt; mkdir / random：./test.pl第11行的权限被拒绝.

修复此问题的一个选项是添加本地sigdie句柄(如注释代码所示).

但是,我的记录器模块被许多脚本使用.

有没有办法修改我的Logger模块,以便在从eval块内部调用时它会抑制ERROR消息？

解决方法

$^S指示当前执行点是否在eval块内：

$^S         State
---------   -------------------------------------
undef       Parsing module,eval,or main program
true (1)    Executing an eval
false (0)   Otherwise

所以听起来你想在__DIE__处理程序的开头检查$^ S是否为真：

package MyLogger;
sub logdie {
    $^S && die $_[0];    # use default die handler
    ...                  # else use custom die handler
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!