发布网友
发布时间：2022-04-20 18:57
共4个回答
懂视网
时间：2022-05-07 02:39
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 FilesMySQLMySQL Server 5.5in> mysql -u root -pabcd
#!C:Perlinperl -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!
";
#执行查询操作
my $sth = $dbh->prepare("select * from admin_info");
$sth->execute();
#通过结果集进行迭代,并打印
while(my $ref = $sth->fetchrow_hashref()) {
print "admin_id: $ref->{'admin_id'}
";
print "admin_user: $ref->{'admin_user'}
";
print "admin_pwd: $ref->{'admin_pwd'}
";
print "----------n";
}
#结束会话连接
$dbh->disconnect();
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 引用哈希属性值传给方法
热心网友
时间：2022-05-06 23:47
热心网友
时间：2022-05-07 01:05
热心网友
时间：2022-05-07 02:40