Perl代码中的依赖项

Question

我被分配了一个用旧的Perl Legacy代码编写的web应用程序，让它在我们的服务器上运行以便以后扩展它。该代码是10年前由一位自学成才的独立开发人员编写的......

代码中发生了奇怪的事情 - 他们并不害怕在第一行do lib-param.pl，后来在文件do /lib-pl/lib-param.pl中 - 这是一个不同的文件。

包含方法a.pl和b()的{​​{1}}以及方法c()和d.pl的{​​{1}}包括c()似乎也非常受欢迎。 ..包似乎是未知的，所以你稍后会在代码中的某处找到＆amp; c（）。

有趣的问题：

• 是否有可以在perl文件之间绘制关系的工具？显示每个其他文件使用的文件列表？
• MySQL数据库和表格是一样的吗？它能显示哪些模式/表由哪些文件使用？
• 是否有一个IDE知道调用哪个c（） - a.pl中的那个或d.pl中的那个？
• 您将如何开始尝试理解代码？

我倾向于浏览每个文件并重构它，但不允许这样做 - 只有严格的最小才能使代码正常工作。 （但由于代码永远不会e()，我不知道我是不是......）

Answer 1

不使用严格是一个错误 - 不要继续它。将d.pl中的内容移动到D.pm（或者可能是一个更好的名称），如果代码是程序性的，则使用Sub::Exporter将这些子回到调用包中。 strict是词法，你可以只为一个包打开它。比如你的新package D;。要找出要调用的代码，请使用Devel :: SimpleTrace。

perl -MDevel::SimpleTrace ./foo.pl

现在任何警告都会附带一个完整的后退日志 - 在代码周围撒上警告并运行它。

我认为应该删除MySQL问题。模式表映射与perl无关，在这个问题上似乎不合适。

Answer 2

我会写一个实用程序来扫描所有sub的完整列表以及它们所在的文件;然后我会写一个实用程序给我一个所有函数调用的列表以及它们来自哪个文件。

顺便说一句，编写一个相当没有思维的静态分析工具来生成调用图并不是非常困难。

对于很多情况，在编写良好的代码中，这足以帮助我......