perl 连接mysql数据库

#!/usr/bin/perl -w
use DBI;
use strict;
my $dbh=DBI->connect("DBI:MysqL:database=cacti;host=localhost","root","admin",{'raiseerror'=>1});
my $sql = $dbh->prepare("select * from settings");
$sql->execute();
while (my @row = $sql->fetchrow_array ){
        print "@row\n";
}
$dbh->disconnect();

perl连接MysqL有两种操作顺序：

(1) my $sql = $dbh->do("select * from settings");

直接执行，然后在返回数据。

(2)my $sql = $dbh->prepare("select * from settings");

准备着，只有遇到$sql->execute();时才执行。

连接和处理数据库的一些语句：

connect    建立到一个数据库服务器的连接 disconnect   断开数据库服务器的连接 prepare    准备执行一个sql语句 execute    执行准备好的语句 do    准备并执行一个sql语句 quote    加引号于要插入的字符串或BLOB值 fetchrow_array   作为一个字段数组取出下一行 fetchrow_arrayref  作为一个字段的引用数组取出下一行 fetchrow_hashref  作为一个哈希表的引用取出下一行 fetchall_arrayref  作为一个字段数组取出所有数据 finish    完成一条语句并且让系统释放资源 rows    返回受影响的行数 data_sources   返回可在localhost上得到的数据库的数组 ChopBlanks   控制fetchrow_*方法是否剥去空格 NUM_OF_ParaMS   在准备的语句中的占位(placeholder-参数)的数目 NULLABLE   其列可以是NULL trace    执行调试跟踪