Perl记录哪些脚本模块访问另一个模块

概述我们维护了大量的perl模块,实际上它非常庞大,我们甚至不知道我们负责的所有模块.我们希望跟踪哪些脚本和模块在某种日志中访问另一个模块,最好是按模块名称存储,这样我们就可以评估更新模块是否存在风险,以便我们知道可能会影响到什么. 有没有简单的方法来做到这一点？ 也许编辑sitecustomize.pl,以便每次Perl运行时,它会在日志中写入一些信息,然后分析它？添加这样的东西到sitecusto 我们维护了大量的perl模块,实际上它非常庞大,我们甚至不知道我们负责的所有模块.我们希望跟踪哪些脚本和模块在某种日志中访问另一个模块,最好是按模块名称存储,这样我们就可以评估更新模块是否存在风险,以便我们知道可能会影响到什么.

有没有简单的方法来做到这一点？

解决方法 也许编辑sitecustomize.pl,以便每次Perl运行时,它会在日志中写入一些信息,然后分析它？添加这样的东西到sitecustomize.pl：

open (LOG,'>>',"absolutepathto/logfile.txt");print LOG 
open (LOG,' ',;while (<SELF>) {print LOG $_ if (/use|require/);}close SELF;END {local $" = "\n";print LOG "files loaded by use,eval,or do functions at the end of this program run:\n";print LOG "@{[values %INC]}","\n";print LOG "_" x 80,"\n";close LOG;}
,"\t",$$,scalar(localtime),"\n";open SELF,;while (<SELF>) {print LOG $_ if (/use|require/);}close SELF;print LOG "_" x 80,"\n";close LOG;

编辑：
此外,我们忘记了％INC哈希,因此上面的代码可能会被重写如下,以包含更多关于实际加载哪些模块的数据包括do函数所需的文件：

总结

以上是内存溢出为你收集整理的Perl记录哪些脚本/模块访问另一个模块全部内容，希望文章能够帮你解决Perl记录哪些脚本/模块访问另一个模块所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。