Wie kann ich redundanten Code in Perl identifizieren und entfernen?

Question

Ich habe eine Perl-Codebasis, und es gibt viele redundante Funktionen und sie sind über viele Dateien verteilt.

Gibt es eine bequeme Möglichkeit, diese redundanten Funktionen in der Codebasis zu identifizieren? Gibt es ein einfaches Tool, das meine Codebasis dafür verifizieren kann?

Answer 1

Mit dem Modul B::Xref können Sie Querverweisberichte erstellen.

Answer 2

Es mag nicht bequem sein, aber das beste Werkzeug dafür ist Ihr Gehirn. Gehen Sie den ganzen Code durch und verstehen Sie seine Zusammenhänge. Versuchen Sie, die üblichen Muster zu sehen. Dann, Refaktor!

Ich habe Ihre Frage mit "refactoring" markiert. Auf dieser Seite finden Sie möglicherweise interessante Informationen zu diesem Thema.

Answer 3

Wenn Sie unter Linux arbeiten, können Sie grep verwenden, um die Liste aller Funktionen in Ihrer Codebasis aufzulisten. Sie werden wahrscheinlich tun müssen, was Ether vorschlägt und den Code wirklich durchgehen, um es zu verstehen, wenn Sie es nicht bereits getan haben.

Hier ist ein über vereinfachtes Beispiel:

grep -r "sub " codebase/* > function_list 

Sie nach Duplikaten zu so aussehen können. Diese Idee ist möglicherweise weniger effektiv, wenn Sie die OOP-Funktionalität von Perl verwenden.

Es könnte auch erwähnenswert sein NaturalDocs, ein Werkzeug zur Code-Dokumentation. Dies wird Ihnen helfen, vorwärts zu gehen.

Answer 4

Ich habe in der Vergangenheit selbst auf dieses Problem gestoßen. Ich habe ein kleines Programm zusammengestellt, das PPI benutzt, um Subroutinen zu finden. Es normalisiert den Code ein wenig (Leerzeichen normalisiert, Kommentare entfernt) und meldet alle Duplikate. Funktioniert einigermaßen gut. PPI macht das ganze schwere Heben.

Sie könnten die Normalisierung etwas schlauer machen, indem Sie alle Variablennamen in jeder Routine auf $ a, $ b, $ c normalisieren und vielleicht etwas ähnliches für Strings tun. Hängt davon ab, wie aggressiv du sein willst.

#!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; 
     } 
    } 
}