1．描述

Perl DBI是一个Perl语言的数据库访问API。DBI定义了一系列函数，变量和惯例提供一个独立于具体数据库的一致性的数据库接口。记住DBI仅仅是一个接口是很重要的。在应用程序和一个/多个数据库驱动器之间的一个瘦层。驱动器完成实际的工作。DBI为驱动器在其内工作提供了标准和框架。

2．DBI和DBD的不同关系模型

?

3．一个简单的DBI?脚本

#!/usr/bin/perl -w

use strict;

use DBI;

use DBD::mysql;

?

my $host =??"localhost";

my $usr = "root";

my $psw = "123456";

my @line;

my $datasource = "DBI:mysql:database=demo;host=$host";

my $dbh=DBI->connect(

?????????????????$datasource,$usr,$psw) || die "Error connecting to database: $!n";

my $sth = $dbh->prepare("SELECT * FROM think_async_job where result ='done'");

$sth->execute();

while (@line = $sth->fetchrow_array()) {

????????print join ("t",@line),"n";

}

$sth->finish();

$dbh->disconnect();

exit();

?

（1）??connect（）方法。

connect( )?调用作为DBI->connect( )?来调用，因为它是DBI?类的方法。connect( )的参数包括：数据源（datasource）、用户名和口令（usr、psw）。如果connect( )?调用成功，则它返回数据库句柄，我们分配给$dbh（如果connect( )?失败，通常返回un d e f。

（2）??prepare( )和execute( )方法

为了完成SQL语句，首先需要准备，然后再运行它。准备需要利用数据库句柄调用prepare( )。在执行前，它将SQL?语句传递给预处理的驱动程序。实际上，在这里某些驱动程序做了一些有关这条语句的事情。其他驱动程序只是记住它，直到调用execute( )?使这条语句被执行为止。从prepare( )?返回的值是一个语句句柄$ s t h，如果出现错误，则为un d e f。

请注意，指定的这个查询没有分号结束符。

（3）??处理查询结果

fetchrow_array( )?返回含有当前行的列值的数组，在没有剩余的行时，返回一个空数组。这样，此循环提取了由SELECT?语句返回的连续行，并显示列值之间用制表符分隔的每一行。

（4）??finish( )

提取行的循环终止以后，调用finish( )?告知DBI?不再需要语句句柄，并且释放分配给它的所有临时资源。

（5）??disconnect()

从服务器上断开连接

?

4．常用DBI方法

（1）connect($data_source,$username,$password)

使用connect方法使得一个数据库连接到数据源。$data_source值应该以DBI:driver_name:开始。以DBD::mysql驱动程序使用connect的例子：

??$dbh = DBI->connect("DBI:mysql:$database",$user,$password);

??$dbh = DBI->connect("DBI:mysql:$database:$hostname",

??????????????????????$user,$password);

??$dbh = DBI->connect("DBI:mysql:$database:$hostname:$port",$password);

（2）disconnect

disconnect方法从数据库断开数据库句柄。它一般就在你从程序退出之前被调用。范例：

??$rc = $dbh->disconnect;

????prepare($statement)

准备一条由数据库引擎执行的SQL语句并且返回语句句柄($sth)，你可以使用它调用execute方法。一般地你借助于prepare和execute来处理SELECT语句(和类SELECT语句，例如SHOW、DESCRIBE和EXPLAIN)。范例：

??$sth = $dbh->prepare($statement)

??????or die "Can't prepare $statement: $dbh->errstr/n";

（3）execute

execute方法执行一个准备好的语句。对非SELECT语句，execute返回受影响的行数。如果没有行受影响，execute返回"0E0"，Perl将它视作零而不是真。对于SELECT语句，execute只是在数据库中启动SQL查询；你需要使用在下面描述的fetch_*方法之一检索数据。范例：

??$rv = $sth->execute

????????????or die "can't execute the query: $sth->errstr;

（4）do($statement)

do方法准备并且执行一条SQL语句并且返回受影响的行数。如果没有行受到影响，do返回"0E0"，Perl将它视为零而不是真。这个方法通常用于事先无法准备好(由于驱动程序的限制)或不需要执行多次(插入、删除等等)的非SELECT语句。范例：

??$rv = $dbh->do($statement)

??????????or die "Can't execute $statement: $dbh- >errstr/n";

（5）quote($string)

quote方法被用来“转义”包含在string中的任何特殊字符并增加所需的外部的引号。范例：

??$sql = $dbh->quote($string)

（6）fetchrow_array

这个方法取下一行数据并且作为一个字段值数组返回它。范例：

??while(@row = $sth->fetchrow_array) {

??????????print qw($row[0]/t$row[1]/t$row[2]/n);

??}

（7）fetchrow_arrayref

这个方法取下一行数据并且作为一个对一个字段值数组的引用返回它。范例：

??while($row_ref = $sth->fetchrow_arrayref) {

??????????print qw($row_ref->[0]/t$row_ref->[1]/t$row_ref->[2]/n);

??}

（8）fetchrow_hashref

这个方法取一行数据并且返回包含字段名/值对的一个哈希表的一个引用。这个方法不如使用上述数组引用那样有效。范例：

??while($hash_ref = $sth->fetchrow_hashref) {

??????????print qw($hash_ref->{firstname}/t$hash_ref->{lastname}/t/

??????????????????$hash_ref- > title}/n);

??}

（9）fetchall_arrayref

这个方法被用来获得从SQL语句被返回的所有数据(行)。它返回一个数组的引用，该数组包含对每行的数组的引用。你用一个嵌套循环来存取或打印数据。范例：

??my $table = $sth->fetchall_arrayref

??????????????????or die "$sth->errstr/n";

??my($i,$j);

??for $i ( 0 .. $#{$table} ) {

??????????for $j ( 0 .. $#{$table->[$i]} ) {

??????????????????print "$table->[$i][$j]/t";

??????????}

??????????print "/n";

??}

（10）finish

便名没有更多的数据将从这个语句句柄取出。你调用这个方法释放语句句柄和任何与它相关的系统资源。范例：

??$rc = $sth->finish;

（11）rows

返回由最后一条命令改变(更新、删除等)的行数。这通常用在非SELECT的execute语句之后。范例：

??$rv = $sth->rows;

（12）NULLABLE

返回一个对一个布尔值数组的引用；对数组的每个成员，一个TRUE值表示该列可以包含NULL值。范例：

??$null_possible = $sth->{NULLABLE};

（13）NUM_OF_FIELDS

这个属性表明由一条SELECT或SHOW FIELDS语句返回的字段数目。你可以用它检查一条语句是否返回了结果：一个零值表明一个象INSERT、DELETE或UPDATE的非SELECT语句。范例：

??$nr_of_fields = $sth->{NUM_OF_FIELDS};

（14）data_sources($driver_name)

这个方法返回一个数组，它包含在主机'localhost'上的MySQL服务器可得到的数据库名。范例：

??@dbs = DBI->data_sources("mysql");

ChopBlanks

这个属性确定fetchrow_*方法是否将去掉返回值的头和尾的空白。范例：

??$sth->{'ChopBlanks'} =1;

trace($trace_level)

　?trace($trace_level,$trace_filename)

trace方法开启或关闭跟踪。当作为一个DBI类方法调用时，它影响对所有句柄的跟踪。当作为一个数据库或语句句柄方法调用时，它影响对给定句柄的跟踪(和句柄的未来子孙)。设置$trace_level为2以提供详细的踪迹信息，设置$trace_level为0以关闭跟踪。踪迹输出缺省地输出到标准错误输出。如果指定$trace_filename，文件以添加模式打开并且所有跟踪的句柄的手被写入该文件。范例：

??DBI->trace(2);????????????????# trace everything

??DBI->trace(2,"/tmp/dbi.out"); # trace everything to /tmp/dbi.out

??$dth->trace(2);???????????????# trace this database handle

??$sth->trace(2);???????????????# trace this statement handle

你也可以通过设置DBI_TRACE环境变量开启DBI跟踪。将它设置为等价于调用DBI->(value)的数字值，将它设置为等价于调用DBI->(2,value)的路径名。