perl - 如何在 Perl 中获得回溯？

Question

可能重复：
如何对 Perl 中的所有致命错误强制执行堆栈回溯？

我喜欢 Python 的一件事是，当脚本因错误退出时，它会吐出回溯。我想知道有没有让 Perl 也能做到这一点？

Answer 1

将此添加到脚本的顶部：

use Carp 'verbose';
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };

它将在所有致命错误上创建堆栈跟踪。

Answer 2

研究Carp::Always模块。