Perl：显示使用过的子程序

Question

在某些项目（梅森）中，有很多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

并在percritic 上再次使用all-perl-files.pl可能会为您提供初始列表。那是因为如果在多个文件中声明了相同的子程序名称并在项目中的某个地方使用过，那么它可能会从未使用的列表中被屏蔽掉。