perl 讀mysql 資料 。

　　3) 測試：
　　使用MySQL資料庫(使用mSQL也可以)建立一個資料庫：abacus,寫一個簡單的perl程 序:perlmysql.cgi，
　　從一個資料庫abacus中讀出所有的表名並且顯示。
　　
　　 #!/usr/bin/perl
　　
　　use DBI;
　　print "Content-type: text/html\n\n";
　　print "\n";
　　print "\n";
　　$driver="mysql";
　 　 $dbh=DBI->connect("DBI:mysql:abacus:mysql.szabacus.com","root","abcde")||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=$numRows\n";
　　 $sth->finish();
　　$dbh->disconnect();
　　exit;