Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Finding duplicated code in Perl

by l3nz (Friar)
on Nov 26, 2003 at 13:56 UTC ( #310246=note: print w/replies, xml ) Need Help??

in reply to Finding duplicated code in Perl

As far as I know, there is no way to reliably automate this process. My experience with automatic code reformatters and analyzers is - to date - rather disappointing. But maybe I'm wrong.

You could think about building up a generalized library for your area of interest and to build by hand each of the scripts so that it's generally built of a few library calls.

Something I would do on the other side is that it's probably way too messy to test and document all existing code; and even if you don't know for sure, you can reasonably assume most of what existing scripts do is correct. Therefore I'd:

  • Write the new scripts as simply and fast as possible
  • Run them on the very same production cases old scripts are run upon
  • Find an automated way to keep track of script executions, number of times the scripts executed correctly and number of times, inputs and outputs of the times the behavoiur was different
This way you'll:
  • save a lot of time testing
  • spot a lot of errors in both old and new scripts, not only in coding but more interestingly in the functional behaviour
  • create test cases (better: automatic test cases) for existing stuff, so you'll know if something modified here breaks something there
At the point you are now, it's the right time to implement something like this. It won't cost so much now but will be very useful in the future.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://310246]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2017-11-19 19:05 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (282 votes). Check out past polls.