从perl子程序返回错误消息

发布时间：2020-12-15 21:11:33 所属栏目：大数据来源：网络整理

导读：这是从perl子程序返回错误信息的好方法吗？ sub some_subroutine{ # do something $something = 14; if(1 == 2){ $_ = "This should not be happening!"; return undef; } return $something;}my $ret=some_subroutine();print "ERROR: $_" unless(defined $

这是从perl子程序返回错误信息的好方法吗？

sub some_subroutine{
    # do something
    $something = 14;

    if(1 == 2){
        $_ = "This should not be happening!";
        return undef;
    }
    return $something;
}

my $ret=some_subroutine();
print "ERROR: $_" unless(defined $ret);

代码运行OK(在并行世界中,1 == 2),但是使用$_返回错误信息是一个好办法吗？我没有找到关于这种用途$_的使用的任何文件.

谢谢！

解决方法

$_并不是一个很好的机制,因为许多其他的东西使用和设置它.

您可以设置一些其他全局变量,如$Error,但最好的方法是抛出异常.那么用户不必经常检查,忘记它只是发生.在Perl中,使用“die”生成异常. die会拿一个字符串或一个对象.有许多模块可以使得例如Exception::Class,Exception::Simple,Ouch和autodie的更容易抛出异常.

您可以使用eval {}捕获异常,但是有a number of problems with that,所以你应该使用像Try::Tiny这样的东西.

（编辑：李大同）

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