Program Repair Shop

Families of Variables

Here's a particularly delightful example:

        $sth = $dbh->prepare("SELECT * FROM info");
        $sth->execute();
        my($one, $two, $three, $four, $five, $six, $seven, $eight,
                $nine, $ten, $eleven, $twelve, $thirteen, $fourteen, $fifteen,
                $sixteen); 
        $sth->bind_columns(undef, \$one, \$two, \$three, \$four,
                \$five, \$six, \$seven, \$eight, \$nine, \$ten, \$eleven,
                \$twelve, \$thirteen, \$fourteen, \$fifteen, \$sixteen); 
        while ($sth->fetch) {
          $SqlStatement4 = ("INSERT INTO Customer_Information " .
        "(CustomerNumber, Name, Address1, Address2, City, State, ZipCode, Email, DefaultPassword) " .
         "VALUES ('$one', '$two', '$three', '$four', '$six', '$seven', '$eight', '$nine', '$sixteen') "); 
         $db->Sql($SqlStatement4);
        }

I found this at http://www.perlmonks.org/index.pl?node_id=67514
PerlMonks is a great source of rotten code