另一个问题的讨论让我想知道:Perl缺少其他编程语言的异常系统是什么？
Perl的内置异常有点特别,因为它们像Perl 5对象系统一样,在事后的想法中加以分类,并且它们超出了其他不专门用于异常的关键字(eval和die).
与具有内置try/throw/catch类型语法的语言相比,语法可能有点难看.我通常这样做:
eval {
do_something_that_might_barf();
};
if ( my $err = $@ ) {
# handle $err here
}
有几个CPAN模块提供语法糖来添加try/catch关键字,并允许轻松声明异常类层次结构等等.
我在Perl的异常系统中看到的主要问题是使用特殊的全局$@来保存当前错误,而不是catch从范围的角度来看可能更安全的专用类型机制,尽管我从来没有亲自遇到任何问题$@得到了.
我有很多关于人们如何在Perl中使用异常的问题.我已经包含了一些关于异常的背景说明,如果你愿意,请跳过这个,但请花点时间阅读问题并回答它们.
谢谢.
Perl有一个非常基本的内置异常系统,可提供弹簧板以实现更复杂的使用.
例如,die "I ate a bug.\n";抛出一个分配了字符串的异常$@.
您也可以抛出一个对象,而不是字符串: die BadBug->new('I ate a bug.');
您甚至可以安装信号处理程序来捕获SIGDIE伪信号.这是一个处理程序,它将异常重新抛出为对象(如果它们尚未存在).
$SIG{__DIE__} = sub {
my $e = shift;
$e = ExceptionObject->new( $e ) unless blessed $e;
die $e;
}
此模式用于许多CPAN模块.但是perlvar说:
由于实现故障,$ SIG { DIE }挂钩甚至在eval()内部被调用.不要使用它来重写$ @中的挂起异常,或者作为重写CORE :: GLOBAL :: die()的奇怪替代.远程的这种奇怪动作可以在将来的版本中修复,这样只有当你的程序即将退出时才会调用$ SIG { DIE },就像原始意图一样.任何其他用途都已弃用.
所以现在我想知道在sigdie中对异常进行客观化是邪恶的.
你使用异常对象吗？如果是这样,哪一个和为什么？如果没有,为什么不呢？
如果您不使用异常对象,会有什么诱使您使用它们？
如果您确实使用了异常对象,那么您对它们有何厌恶,哪些更好？
在DIE处理程序中对异常进行客观化是一个坏主意吗？
我应该在哪里客观化我的例外情况？在我的eval {}包装器中？在一个sigdie处理程序？
是否有任何关于例外情况的文章,文章或其他资源,以及您发现有用或有启发性的Perl.
在Perlmonks交叉发布.
我最近阅读了Perl.com文章中的"Perl中面向对象的异常处理".在Perl中使用异常是否有意义？