Perl:显示使用的子例程

Question

在一些项目( Mason )中，有很多perl模块(> 200)。真正使用的代码只有5-10%。我如何看，哪些子例程被使用(或未使用)？

Answer 1

除了choroba的链接之外，您还可以使用分析器来显示调用了哪些子例程(调用了多少次，花费了多长时间)：

• Profiling Perl
• Devel::NYTProf - Profiling Perl code

Answer 2

考虑从命令行开始使用Perl::Critic：

perlcritic --single-policy=UnusedPrivateSubroutines --verbose 2 ./*.pl

您将获得未使用的子例程的列表。要列出未使用的变量，请执行以下操作：

perlcritic --single-policy=UnusedVariables --verbose 2 /root/*.pl

为了审核整个"mason“项目中未使用的子例程，如下所示

cat *.pl > all-perl-files.pl

在all-perl-files.pl上再次使用percritic可能会给出一个初始列表。这是因为如果在多个文件中声明了同一个子例程的名称，并且在项目中的某个地方使用了它，那么它可能会从未使用列表中屏蔽出来。