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


in reply to The joys of bad code

Unfortunately, my past (and probably present) code..

When setting up a DBI query:

$command = "UPDATE staff SET $tag=\"$value\" WHERE id=\"$params{\"id\" +}\" AND $tag!=\"$value\""; my $sth = $dbh->prepare("$command");


Most of my old code is currently running a simple employee status / timesheet system. I always groan when i'm asked to changed / fix something in it as it's a house of cards just waiting to topple over.

I like to think I've improved a lot, but when I think of the stuff the monks here write I realise just how much I have to go :)