为 Perl 程序员调试的工作流程

Question

我是Perl 的新手，遇到以下问题。
我有一个日志输出，我找到了这个日志输出的来源。我的意思是打印它的某个模块中的子程序。

现在例如在Java 通过Eclipse 我会使用例如Call hierarchy 和其他实用程序来查看如何/何时/谁调用该方法并弄清楚如何重现我需要的内容并进行调试。

如何在Perl 中执行此操作？通过例如grep?如果我grep 例如对于模块名称，我得到数百行，范围从 use A require A C::B::A B::A C::B::A::some_routine C::B::A::some_other_routine 等。
最重要的是，我担心也许我感兴趣的例程不是直接调用的，而是一些脚本，例如通过一些晦涩难懂的方式运行我感兴趣的模块（由于我对Perl 的无知）。

那么我将如何以最有效的方式调试Perl 中的某些内容？ Perl 大师们建议我做什么并提高效率？

Answer 1

在 Perl 调试器下运行程序：

perl -d scriptname arguments...

在您关心的函数中设置断点，当程序在断点处停止时，使用T调试器命令显示堆栈跟踪，这将显示该函数的调用位置。

从您的 cmets 来看，我不确定这是否真的解决了您正在寻找的问题。也许您想要的是 Perl 应用程序的交叉引用？请参阅常见问题解答How do I cross-reference my Perl programs?

Answer 2

大多数情况下，获取堆栈跟踪（以及一些调试信息）是一个好的开始。可以使用标准的Carp 模块来生成堆栈跟踪：

use Carp;  
print_to_log(Carp::longmess("We're here"));

或者也有一个object-oriented module。

Answer 3

要在不修改任何代码的情况下获取调用堆栈的转储，您可以使用 perl 命令行在 Carp::Always 下运行您的程序：

perl -MCarp::Always my_program.pl