小编Gog*_*ent的帖子

这是从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);

代码运行正常(在并行世界中,在哪里1 == 2),但使用$_返回错误消息是一个好方法？我没有找到任何关于$_此类用途的使用文档.

谢谢!