Perl中一个很重要的模块就是DBI模块(Perl Database Interface,数据库接口)。DBI模块为很多不同的数据库提供了一个统一的接口。Perl通过此接口可以很容易对数据库进行操作。结构图如下:
下面说下Perl如何对MySQL数据库进行操作。
1. 首先要确保Perl及MySQL数据库已经安装。然后用cpan或者是ppm图形化界面来安装.
cpan> install DBI #安装数据库模块
cpan> install DBD::mysql #安装数据库驱动
2. 然后准备测试用数据库脚本: (admin.sql)
C:\Program Files\MySQL\MySQL Server 5.5\bin> mysql -u root -pabcd <c:\admin.sql
drop database if exists admin; #创建数据库,如果存在则删除
create database admin; #创建数据库。
use admin; #打开数据库,注意用分号。
create table admin_info #建练习用表。
(
admin_id int(3) auto_increment not null primary key, #主键,非空,自增长。
admin_user varchar(15) not null,
admin_pwd varchar(15) not null
);
insert into admin_info values('001','Tom','1234'); #插入两条数据,用于做测试。
insert into admin_info values('002','Jerry','abcd'); #插入两条数据,用于做测试。
3. 准备连数据库脚本:(Conn_Mysql.pl)
#!C:\Perl\bin\perl -w
#导入DBI模块
use DBI;
use utf8;
use strict;
use warnings;
#连接数据库
my $dbdrive = "mysql";
my $dbname = "admin";
my $hostname = "localhost";
my $port = "3306"; #MySQL数据库缺省端口
my $database = "DBI:$dbdrive:$dbname:$hostname:$port";
my $db_user = "root";
my $db_pwd = "abcd";
my $dbh = DBI->connect($database,$db_user,$db_pwd) or die DBI::errstr;
#执行插入操作
my $rows = $dbh->do("insert into admin_info(admin_id,admin_user,admin_pwd)
VALUES (003, 'root', 'root')");
print "$rows row(s) affected!\n";
#执行查询操作
my $sth = $dbh->prepare("select * from admin_info");
$sth->execute();
#通过结果集进行迭代,并打印
while(my $ref = $sth->fetchrow_hashref()) {
print "admin_id: $ref->{'admin_id'}\n";
print "admin_user: $ref->{'admin_user'}\n";
print "admin_pwd: $ref->{'admin_pwd'}\n";
print "----------n";
}
#结束会话连接
$dbh->disconnect();
4. 结果如下:
1. 使用connect()函数建立数据库连接。
2. 使用do()或prepare()以及execute()函数进行插入,查询,删除,更新操作
3. 使用fetchrow_hashref()函数,配合while,将遍历数据,方便打印操作
4. 使用disconnect()函数,断开数据库连接,结束文件句柄
总体来说,跟其他语言连数据库操作步骤类似。
其他标志说明:
Perl推荐使用下列标志作为约定
$dsn 数据库源名
$dbh 数据库处理对象
$sth 处理对象声明
$h 任意上述三种处理类型 ($dbh, $sth, or $drh)
$rc 通用返回代码(boolean: true=ok, false=error)
$rv 通用返回值(通常为一个整数)
@ary 数据库中返回的数据列表
$rows 要处理的行数(如果行数不存在的话,返回值为:-1)
$fh 文件句柄
undef NULL值在Perl中表示未定义的值
\%attr 引用哈希属性值传给方法