#!C:/Perl/bin/perl.exe -w
use DBI;
print "content-type: text/html\n\n";
print '<html><head><title>test</title><head><body>';
my $dbh = DBI->connect('dbi:mysql:test','localhost:8080', 'root', '');
print '$dbh';
my $sql = q/select * from tst/;
my $sth = $dbh->prepare($sql);
$sth->execute;
print '<table border="1">\n';
print "<tr><th>$sth->{NAME}->[0]</th><th>$sth->{NAME}->[1]</th></tr>";
while (my @row = $sth->fetchrow_array) {
print "<tr><td>$row[0]</td><td>$row[1]</td></tr>\n";
}
print "</table>\n";
print "</body></html>\n";
Partager