清理庞大的Perl Codebase

发布时间：2020-12-15 22:06:39 所属栏目：大数据来源：网络整理

导读：我目前正在开发一个大约15年的Web应用程序. 它主要包含带有HTML :: Template模板的CGI perl脚本. 它有超过12 000个文件和大约260 MB的总代码.我估计不需要超过1500 perl脚本,我想摆脱所有未使用的代码. 实际上没有为代码编写测试. 我的问题是：您是否了解任

我目前正在开发一个大约15年的Web应用程序.

它主要包含带有HTML :: Template模板的CGI perl脚本.

它有超过12 000个文件和大约260 MB的总代码.我估计不需要超过1500 perl脚本,我想摆脱所有未使用的代码.

实际上没有为代码编写测试.

我的问题是：

>您是否了解任何可以帮助我获取已使用和必需模块列表的CPAN模块？
>如果你想摆脱所有额外的代码,你的方法是什么？

我在考虑以下方法：

>尝试覆盖使用并要求perl builtins使用在特定位置输出加载的文件名的perl
>覆盖警告和/或严格模块导入功能,并在特定位置输出文件名
>研究Devel :: Cover perl模块并采用相同的方法并在进行手动测试而不是自动测试时分析代码
>用自定义的perl可执行文件替换它,它将记录它读取的文件的每个名称(我不知道该怎么做)
>一些创意使用lsof(？！？)

解决方法

Devel::Modlist可能会为您提供所需,但我从未使用过它.

我需要做几次像这样的事情,我选择了在程序结束时检查％INC的更强力方法.

END {
    open my $log_fh,...;
    print $log_fh "$_n" for sort keys %INC;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!