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 引用哈希属性值传给方法