我目前正在开发一个大约有 15 年历史的 Web 应用程序。
它主要包含带有HTML::Template模板的CGI perl 脚本。
它有超过 12000 个文件和大约 260 MB 的总代码。我估计需要不超过 1500 个 perl 脚本,并且我想摆脱所有未使用的代码。
实际上没有为代码编写测试。
我的问题是:
- 您是否知道任何CPAN 模块可以帮助我获得仅包含
use
d 和require
d 模块的列表? - 如果您想摆脱所有额外的代码,您的方法是什么?
我在考虑以下方法:
- 尝试使用在特定位置输出加载的文件名的
use
和require
perl 内置命令 - 覆盖
warnings
和/或strict
模块import
函数并在特定位置输出文件名 - 研究
Devel::Cover
perl 模块并在进行手动测试而不是自动化测试时采用相同的方法并分析代码 - 用自定义的替换 perl 可执行文件,这将记录它读取的每个文件名(我还不知道该怎么做)
lsof
(?!?)的一些创造性使用