Perl 教程 之 Perl 数据库连接 2

Perl 数据库连接

Perl 5 中我们可以使用 DBI 模块来连接数据库。

DBI 英文全称：Database Independent Interface，中文称为数据库独立接口。

DBI 作为 Perl 语言中和数据库进行通讯的标准接口，它定义了一系列的方法，变量和常量，提供一个和具体数据库平台无关的数据库持久层。

数据库连接

接下来我们使用以下代码来连接数据库：

实例

!/usr/bin/perl -w

use strict;
use DBI;

my $host = "localhost"; # 主机地址
my $driver = "mysql"; # 接口类型 默认为 localhost
my $database = "BAIDU"; # 数据库

驱动程序对象的句柄

my $dsn = "DBI:$driver:database=$database:$host";
my $userid = "root"; # 数据库用户名
my $password = "123456"; # 数据库密码

连接数据库

my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT * FROM Websites"); # 预处理 SQL 语句
$sth->execute(); # 执行 SQL 操作

注释这部分使用的是绑定值操作

$alexa = 20;

my $sth = $dbh->prepare("SELECT name, url

FROM Websites

WHERE alexa > ?");

$sth->execute( $alexa ) or die $DBI::errstr;

循环输出所有数据

while ( my @row = $sth->fetchrow_array() )
{
print join('\t', @row)."\n";
}

$sth->finish();
$dbh->disconnect();