http://www.perlmonks.org?node_id=226335

I was tasked with re-writing a routine that managed the sendmail include file alias lists. The original routine was scary in what it did.

Stuff noticed:

33 loops to perform things ranging from reading/writing files, running a menu, to making sure an array was empty before using it.

Some of the logic was verify array was empty, load the file to an array, load the array to a variable, search the variable for an entry, add or delete something, load the variable back to an array, write to file. All of this with 6 loops

There is much more but then this post would be big! ;-)

What I was wondering is if there would be any worth publishing such messes for training purposes under the guise of say what not to do?

Just a random thought on a Sunday.