perl - 如果 Perl 代码出现问题，最佳做法是什么？

Question

这个问题在这里已经有了答案:




11 年前关闭。

Possible Duplicates:
How can I cleanly handle error checking in Perl?
What’s broken about exceptions in Perl?

我看到的代码是这样工作的:

do_something($param) || warn "something went wrong\n";

我还看到了这样的代码:

eval {
  do_something_else($param);
};
if($@) {
  warn "something went wrong\n";
}

我应该在所有子程序中使用 eval/die 吗？我应该根据子程序返回的内容编写所有代码吗？不是 eval编写代码(一遍又一遍)会减慢我的速度吗？

Answer 1

座eval不是字符串 eval ，所以不，它并不慢。绝对推荐使用它。

虽然它的工作方式有一些令人讨厌的微妙之处(主要是 $@ 是全局变量的令人讨厌的副作用)，因此请考虑使用 Try::Tiny而不是记住您需要使用的所有小技巧eval防守上。