我注意到,Exception.pm和Error.pm在Perl社区似乎没有被广泛使用。是否因为异常处理引起的eval的大量占用?
一般来说,Perl程序似乎有更宽松的关于异常处理的政策。这是否有引人注目的理由?
无论如何,Perl中异常处理的最佳方法是什么?
解决方法
Perl社区的共识似乎是
Try::Tiny是做异常处理的首选方式。您所提及的“宽大政策”可能是由于以下组合:
> Perl不是一个完全面向对象的语言。 (例如,与其中的Java相反
你不能避免处理异常。)
>许多Perl开发人员的背景。 (像C1和shell这样的语言没有
异常机制)
>人们倾向于使用Perl的任务。 (文字的小脚本和
报表生成,不需要异常处理。)
> Perl没有(很好的)内置的异常机制。
请注意,最后一个项目意味着您会看到很多代码,如下所示:
eval { something() }; if ($@) { warn "Oh no! [$@]\n"; }
这是异常处理,即使它不使用try / catch语法。然而,它是脆弱的,并将在许多微妙的边缘案例中大多数人没有想到。 Try :: Tiny和CPAN上的其他异常处理模块都是为了更容易获得正确的。
1. C有setjmp()和longjmp(),可以用于非常粗体的异常处理形式。