Perl 教程 之 Perl 数据库连接 4
Perl 数据库连接
Perl 5 中我们可以使用 DBI 模块来连接数据库。
DBI 英文全称：Database Independent Interface，中文称为数据库独立接口。
DBI 作为 Perl 语言中和数据库进行通讯的标准接口，它定义了一系列的方法，变量和常量，提供一个和具体数据库平台无关的数据库持久层。
更新操作
执行步骤:
使用 prepare() API 预处理 SQL 语句。
使用 execute() API 执行 SQL 语句。
使用 finish() API 释放语句句柄。
最后如果一切顺利就会提交以上执行操作。
my $sth = $dbh->prepare("UPDATE Websites
SET alexa = alexa + 1
WHERE country = 'CN'");
$sth->execute() or die $DBI::errstr;
print "更新的记录数 :" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;
应用程序还可以绑定输出和输入参数,下面例子通过用变量取代 ? 占位符的位置来执行一条更新查询：
$name = '百度';
my $sth = $dbh->prepare("UPDATE Websites
SET alexa = alexa + 1
WHERE name = ?");
$sth->execute('$name') or die $DBI::errstr;
print "更新的记录数 :" + $sth->rows;
$sth->finish();
当然我们也可以绑定要设置的值，如下所示将 country 为 CN 的 alexa 都修改为 1000：
$country = 'CN';
$alexa = 1000：;
my $sth = $dbh->prepare("UPDATE Websites
SET alexa = ?
WHERE country = ?");
$sth->execute( $alexa, '$country') or die $DBI::errstr;
print "更新的记录数 :" + $sth->rows;
$sth->finish();
