I'm a Uni student and new to Perl and MySQL.
I have the following code to select data from a display it in a HTML table but it does not give me the field names at the top of the table. Can anybody please help.
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<table border=2 border color=white table width = 100% table bgcolor=#CCCC66>\n";
use DBI;
$dbh = DBI->connect('dbi:mysql:db_name','db_user','db_password')
or die "Connection Error: $DBI::errstr\n";
$sql = "SELECT * FROM Table_name";
$sth = $dbh->prepare($sql);
$sth->execute
or die "SQL Error: $DBI::errstr\n";
#or die "SQL Error: There was an error with your query please try again\n";
while (@row = $sth->fetchrow_array) {
print "<tr>\n";
foreach $td (@row) {print "<td align=center>$td</td>\n";}
print "</tr>\n";
}
print "</table>";
print "<html>";