我怎樣才能縮小Perl腳本？

Question

我想縮小perl腳本，以便我可以檢測幾乎完全相同的perl腳本，這些腳本只有行注釋，空行等不同。我有一個預先構建的腳本來進行這種縮小？ 如果是這樣，我將能夠自己校驗和突出顯示相同的文件。

Answer 1

不完全縮小，但您可以使用B::Deparse編譯Perl腳本，然后將其反編譯回Perl。

你可以區分結果。

一個簡單的命令行示例如下：

david@Workstation:comp # perl -MO=Deparse 1.pl > a.pl
1.pl syntax OK
david@Workstation:comp # perl -MO=Deparse 2.pl > b.pl
2.pl syntax OK
david@Workstation:comp # diff a.pl b.pl
david@Workstation:comp # diff 1.pl 2.pl
3c3,5
< say "Hello";
---
> 
> 
>   say "Hello";
david@Workstation:comp # 

Answer 2

考慮使用perltidy實用程序跨多個腳本“標准化”格式。

它甚至有一個'混淆'標志，在文檔中解釋：

使文件不可讀

perltidy的目標是提高文件的可讀性，但有兩個命令具有相反的效果， - --mangle和--extrude 。 它們實際上只是其他參數組合的別名。 這兩個都刪除了所有可能的空格，但留下了注釋和pod文檔，因此它們基本上是可逆的。 ...請注意，這些選項不提供任何有意義的混淆，因為perltidy可用於重新格式化文件。

Answer 3

Code :: CutNPaste查找重復的Perl代碼

use Code::CutNPaste;

my $cutnpaste = Code::CutNPaste->new(
    dirs         => [ 'lib', 'path/to/other/lib' ],
    renamed_vars => 1,
    renamed_subs => 1,
);
my $duplicates = $cutnpaste->duplicates;

foreach my $duplicate (@$duplicates) {
    my ( $left, $right ) = ( $duplicate->left, $duplicate->right );
    printf <<'END', $left->file, $left->line, $right->file, $right->line;

Possible duplicate code found
Left:  %s line %d
Right: %s line %d

END
    print $duplicate->report;
}

Answer 4

除了別人的回答，我想建議你閱讀Ovid關於如何在Perl中檢測重復代碼的文章？ 以及更多關於在Perl中查找重復代碼的信息 。