DBI模塊操作數(shù)據(jù)庫示例

cpan> install DBI #安裝數(shù)據(jù)庫模塊
cpan> install DBD::mysql #安裝數(shù)據(jù)庫驅(qū)動 

C:\Program Files\MySQL\MySQL Server 5.5\bin> mysql -u root -pabcd 

#!C:\Perl\bin\perl -w
#導(dǎo)入DBI模塊
use DBI;
use utf8;
use strict;
use warnings;

#連接數(shù)據(jù)庫
my $dbdrive = "mysql";
my $dbname = "admin";
my $hostname = "localhost";
my $port = "3306"; #MySQL數(shù)據(jù)庫缺省端口
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;

#執(zhí)行插入操作
my $rows = $dbh->do("insert into admin_info(admin_id,admin_user,admin_pwd) 
 VALUES (003, 'root', 'root')");
print "$rows row(s) affected!\n";

#執(zhí)行查詢操作
my $sth = $dbh->prepare("select * from admin_info");
$sth->execute();

#通過結(jié)果集進行迭代,并打印
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";
}

#結(jié)束會話連接
$dbh->disconnect();

 $dsn 數(shù)據(jù)庫源名
 $dbh 數(shù)據(jù)庫處理對象
 $sth 處理對象聲明
 $h 任意上述三種處理類型 ($dbh, $sth, or $drh)
 $rc 通用返回代碼(boolean: true=ok, false=error)
 $rv 通用返回值(通常為一個整數(shù))
 @ary 數(shù)據(jù)庫中返回的數(shù)據(jù)列表
 $rows 要處理的行數(shù)(如果行數(shù)不存在的話，返回值為:-1)
 $fh 文件句柄
 undef NULL值在Perl中表示未定義的值 
 \%attr 引用哈希屬性值傳給方法