|Think about Loose Coupling|
Finding duplicated code in Perlby shushu (Scribe)
|on Nov 26, 2003 at 12:49 UTC||Need Help??|
shushu has asked for the
wisdom of the Perl Monks concerning the following question:
I am a new owner of a huge project, that currently contain 2.5M lines of code.
The first version was written in an internal language we developed, which was VERY simple - no loops, no subroutines, no modules, no conditions, and when we moved to the new version we created a converter, which converted the code to Perl.
The convertion was simple, therefore I had 3000 flat script, and today I have 3000 flat script, just in Perl. My new task is to take those scripts, find code duplications, and produce modules and subroutines.
I am looking for a tool that will find the duplications for me.
Looking in the net I found several tools:
and some commercial ones.
The problem is - they do not support Perl.
Before I run and create a support for Perl in those projects (as suggested in http://www.onjava.com/pub/a/onjava/2003/03/12/pmd_cpd.html), I would like to know whether there is another solution, or another tool that already has Perl support.