Perl中一个很重要的模块就是DBI模块(Perl Database Interface，数据库接口)。DBI模块为很多不同的数据库提供了一个统一的接口。Perl通过此接口可以很容易对数据库进行操作。结构图如下： 下面说下Perl如何对MySQL数据库进行操作。 1. 首先要确保Perl及MySQL
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()函数建立数据库连接。
开发语言：java，支持数据库：Mysql 5，系统架构：J2EE，操作系统：linux/Windows1. 引言 32. 系统的结构 32.1 系统概述 33. 功能模块设计说明 43.1 商品管理 43.1.1 添加商品功能模块 53.1.2 商品列表功能模块 83.1.3 商品关联功能模块 93.
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 引用哈希属性值传给方法
