perl - 如何判断我的程序中是否实际使用了 Perl 模块？

Question

我最近在工作中一直在“大扫除”，做了很多本应在不久前完成的修补工作。我一直在做的一件事是删除了已导入文件但从未使用过的模块，或者它们曾在某一时刻使用过但不再使用。为此，我刚刚删除了一个导入并运行了程序的测试文件。这变得非常非常乏味。

有没有任何程序化的方式来做到这一点？没有我自己编写一个程序来完成它。

Answer 1

简短的回答，你不能。

更长的可能更有用的答案，你不会找到一个通用工具来告诉你 100% 确定你正在清除的模块是否真的会被使用。但是您也许可以构建一个特殊用途的工具来帮助您进行当前在代码库上进行的手动搜索。也许尝试在您的测试套件周围使用一个包装器，为您删除 use 语句并忽略任何错误消息，除了说 Undefined subroutine &__PACKAGE__::foo 的消息。以及访问任何模块的缺失功能时出现的其他消息。然后包装器可以自动对正在清除的模块的代码库执行哑源扫描，以查看丢失的子例程 foo (或其他功能)可能在不需要的模块中定义。

您可以使用 Devel::Cover 对其进行补充，以确定您的代码的哪些部分没有测试，以便您可以手动检查这些区域，并可能深入了解它们是否正在使用您尝试清除的模块中的代码。

由于 halting problem您无法静态确定任何足够复杂的程序是否会退出。这适用于您的问题，因为程序的“最后”指令可能是使用您正在清除的模块的指令。而且由于不可能确定最后一条指令是什么，或者它是否会被执行，所以不可能静态地确定该模块是否会被使用。此外，在可以在程序运行期间扩展程序的动态语言中，对源代码甚至编译后符号表的分析只会告诉您在运行时之前调用不需要的模块(无论这意味着什么)。

因此，您不会找到适用于所有程序的通用工具。但是，如果您确定您的代码不使用 Perl 的某些运行时特性，您也许可以编写一个适合您的程序的工具，该工具可以确定您正在清除的模块中的代码是否真的会被执行。