如何识别和删除Perl中的冗余代码？

Question

我有一个Perl代码库，并且有很多冗余功能，它们分布在很多文件中。

有没有一种方便的方法来识别代码库中的冗余功能？ 是否有任何简单的工具可以验证我的代码库？

Answer 1

您可以使用B::Xref模块生成交叉引用报告。

Answer 2

它可能不方便，但最好的工具是你的大脑。浏览所有代码并理解其相互关系。尝试看看常见的模式。然后，重构！

我用“refactoring”标记了您的问题。你可能会在这个主题下找到一些有趣的材料。

Answer 3

如果您在Linux上，您可以使用grep来帮助您列出代码库中的所有功能。你可能需要做Ether建议的内容，并且如果你还没有完全理解它，那么你可以通过代码去理解它。

这里是一个过于简单的例子：

grep -r "sub " codebase/* > function_list 

你可以找出重复的也是这样的。如果你使用Perl的OOP功能，这个想法可能不太有效。

它也许值得一提的代码文档工具NaturalDocs。这会帮助你前进。

Answer 4

我以前遇到过这个问题。我打了一个使用PPI查找子程序的快速小程序。它将代码标准化了一点（空白标准化，注释被移除）并报告任何重复。工作得很好。 PPI完成所有繁重工作。

通过将每个例程中的所有变量名归一化为$ a，$ b，$ c，并且可能为字符串做类似的操作，可以使规范化变得更加智能。取决于你想成为多么积极。

#!perl 

use strict; 
use warnings; 

use PPI; 

my %Seen; 

for my $file (@ARGV) { 
    my $doc = PPI::Document->new($file); 
    $doc->prune("PPI::Token::Comment");   # strip comments 

    my $subs = $doc->find('PPI::Statement::Sub'); 
    for my $sub (@$subs) { 
     my $code = $sub->block; 
     $code =~ s/\s+/ /;      # normalize whitespace 
     next if $code =~ /^{\s*}$/;    # ignore empty routines 

     if($Seen{$code}) { 
      printf "%s in $file is a duplicate of $Seen{$code}\n", $sub->name; 
     } 
     else { 
      $Seen{$code} = sprintf "%s in $file", $sub->name; 
     } 
    } 
}