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

Question

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




12年前关闭。

Possible Duplicate:
How do I force a stack backtrace for all fatal errors in Perl?

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

Answer 1

将此添加到脚本的顶部:

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

它将在所有 fatal error 上创建堆栈跟踪。