Encontre código duplicado em Perl

SIZE=5120 perl -MCode::DRY 
-e 'Code::DRY::scan_directories(-$ENV{SIZE}, undef, undef, undef, @ARGV)'
lib
/

O comando faz um trabalho impressionante em encontrar duplicatas ‘Recortar e colar’ e é rápido, mesmo em bases de código enormes.

SIZE variável define um número mínimo de bytes a serem considerados duplicados.

O comando requer que o módulo Code :: DRY seja pré-instalado.

O script CP_reporter da mesma distribuição fornece uma interface de relatório melhor, mas aceita apenas um dir ou um glob.

O módulo de Heiko “hexcoder” Eißfeldt pega algumas idéias da implementação de Ovídio e se beneficia do uso de vários algoritmos e ganhos de desempenho XS.