这个真烦人！

infante0810

nnDBD::mysql initialisation failed: Can't locate object method "driver" via package "DBD::mysql" (pe
rhaps you forgot to load "DBD::mysql"?) at C:/Perl/site/lib/DBI.pm line 642.

Perhaps the capitalisation of DBD 'mysql' isn't right. at C:\Perl\bin\testdb.pl line 8

testdb.pl
#!c:/perl/bin/perl
print "Content-type: text/plain\n\n";
use DBI;
use DBD;
print "n";
print "n";
$driver = "mysql";
$dbh = DBI ->;connect("DBI:mysql:test:localhost","root","a1b2c3"||die "can not connect database";
$sth = $dbh->;prepare("show tables"||die "occur an error when query database";
$sth->;execute();
$numRows=$sth->;rows;
while(@row=$sth->;fetchrow_array)
{
print "Table: $row[0]n";
}
print "query lines=$numRowsn";
$sth->;finish();
$dbh->;disconnect();
exit;

流浪者

#!c:/perl/bin/perl
print "Content-type: text/plain\n\n";
use DBI;

$driver = "mysql";
$dbh = DBI ->;connect("DBD:mysql:test:localhost","root","a1b2c3"||die "can not connect database";
$sth = $dbh->;prepare("show tables"||die "occur an error when query database";
$sth->;execute();
#$numRows=$sth->;rows;
my @row=$sth->;fetchrow_array;
for(my $i=0;$i<@row;$i++)
{
print "Table: $row[$i]\n";
}
#print "query lines=$numRows\n";
$sth->;finish();
$dbh->;disconnect();
exit;