Here it is in perl/DBI using hashes of arrays:
my $database =
DBI->connect("DBI:mysql:database=$DATABASENAME;host=$HOSTNAME
ST",$MYSQLUSER,$MYSQLPASS,{RaiseError=>0,PrintError=>0});
my $tablea = $database->prepare("SHOW TABLES FROM DATABASENAME");
$tablea->execute();
my @active_table
x27;,4082,45,48000,28800,1074007340,277044,9807938,1);:
Duplicate entry '309861948-sadams' for key 6
>Fix:
>Submitter-Id:
>Originator:Joseph Christian
>Organization:
>MySQL support: [none | licence | email support | extended email support ]
>Synopsis:
>
