perl 连接mysql数据库
#!/usr/bin/perl -wuse 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 执行调试跟踪
页:
[1]