大佬教程收集整理的这篇文章主要介绍了从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这样的东西.
以上是大佬教程为你收集整理的从perl子程序返回错误消息全部内容，希望文章能够帮你解决从perl子程序返回错误消息所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。