一、简介
PERL应用数据库由两种方法，其一是利用本身所配置的DBM包，这个可以建立数据库并对其进行操作，因此可以把DBM包以及其他类似的包看作是一个数据库的扩展。另一个就是利用DBI包或者类似的包建立与其他关系型数据库的连接，显然，我们通常需要利用后者。
数据库接口（DBI）是由TIM BUNCE（
[email protected]）所书写，DBI是专门为PERL所书写。你可以在
http://www.hermetica.com/technologia/DBI/ 查找到相应的信息。
最初，DBI只是由Tim Bunce开发的一个接口包，后来，他开发了DBD::Oracle包用于处理与Oracle的接口。然后，就有了一系列的DBD::Modules的包用于处理与其他类型的数据库的接口。同样，你可以在：
http://www.hermetica.com/technologia/DBI/取得详细的信息。现在可以得到的包有如下：
DBD-Oracle-0.29.tar.gz ： Oracle 数据库
DBD-Informix-0.20pl0.tar.gz ： Informix 数据库
DBD-QBase-0.03.tar.gz ： Quickbase
DBD-mSQL-0.60pl9.tar.gz ： mSQL-based 数据库
DBI-0.67.tar.gz ： DBI 接口
另外还有ODBC的驱动，从而可以载WINDOWS系统下驱动如Access之类的数据库系统。（当然，PERL FOR WIN32中也有WIN32::ODBC的包用于处理ODBC兼容的驱动程序）
当取回DBI的驱动程序包之后，先不急安装，首先，测试PERL5是否安装，这一点很重要，然后：
如果PERL5已经安装： perl Makefile.PL
如果没有安装：perl Makefile.PL PERL_SRC=/path/to/perl/source/dir
然后：
make
make install完成安装
你可以在系统下执行指令$ PERL_DL_DEBUG=255 perl -e 'use DBI;'
然后可以得到大致如此的结果：
DynaLoader.pm loaded (/usr/local/lib/perl5/i486-Linux/5.003 /usr/local/lib/perl5
/usr/local/lib/perl5/site_perl/i486-linux /usr/local/lib/perl5/site_perl .
/usr/local/lib /usr/local/lib /lib /usr/lib)
DynaLoader::bootstrap for DBI (auto/DBI/DBI.so)
这样说明你的DBI包已经安装成功了。
DBI和DBD包运行的模式如下：
（图：DBI、DBD的工作模式）
让我们看看连接数据发生的典型的过程：
1、载入DBI驱动程序
2、使用DBD连接相应的数据库
3、打开含有SQL指令的游标
4、取回数据集
5、关闭游标
6、关闭数据库连接
7、退出
我们使用DBI之前首先需要声明：
#!/usr/bin/perl -w
use DBI;
我们有两种方法可以建立PERL与数据库之间的连接：
#!/usr/bin/perl -w
use DBI;
#建立与数据库的连接，第4个参数标明数据库类型
$dbh = DBI->connect( 'connection_string'， 'username'， 'passWord'， 'mSQL' );
if ( !defined $dbh ) {
[1] [2] [3] 下一页
die "Cannot do \$dbh->connect: $DBI::errstr\n";
}
通过这种方法，返回一个数据库句柄。这是一种常用的用法，另外一种方法返回“驱动程序句柄”：
#!/usr/bin/perl -w
use DBI;
$drh = DBI->install_driver( 'mSQL' );
if ( !defined $drh ) {
die "Cannot load driver: $!\n";
}
这种方法多用来检查是否系统中是否存在某种驱动程序。
在使用中，有三种句柄将要在程序设计中涉及到：驱动程序句柄（Driver Handle）、数据库句柄（DataBase Handle）、语句句柄（Statement Handle），它们之间的关系可以用下图来表示：
（图：驱动程序句柄、数据句柄和语句句柄的工作关系）
以下是一些利用DBI处理数据库的历程：
1、打开连接（数据库）已经关闭
#!/usr/bin/perl -w
#
# (c)1996 Alligator Descartes
#
# inout.pl: Connects and disconnects from a specified database
use DBI;
if ( $#ARGV < 0 ) {
die "Usage: inout.pl \n";
}
# Create new database handle. If we can't connect， die()
$dbh = DBI->connect( ''， $ARGV[0]， ''， $ARGV[1] );
if ( !defined $dbh ) {
die "Cannot connect to mSQL server: $DBI::errstr\n";
}
# Disconnect from the database
$dbh->disconnect;
exit;
二、DBI与DBD::mysql
DBI是一个许多数据库通用的接口，这意味着你可以写出一个可以工作于许多不同的数据库的脚本。为此，你需要一个为每中数据库类型定义的DATABASE DRIVER（DBD），对于MySQL来说，这个驱动程序叫DBD::mysql。你可以参考DBIs web page以获得更多的信息。为了获得在Perl5中的关于面向对象编程的概念，请参考the perl OOP page
三、DBI接口
通用DBI方法
connect
建立与一个数据库服务器的连接
prepare
获取准备执行的SQL语句
do
准备并执行一个SQL语句
disconnect
断开与一个数据库服务器的连接
quote
被插入引用字符串（块）
execute
执行存储过程
fetchrow_array
取出下一行到一个数组之中
fetchrow_arrayref
取出下一行到数组中，返回数组的引用
fetchrow_hashref
取出下一行到哈希表，返回其引用
fetchall_arrayref
取出所有的数据到一个数组，返回其引用。
finish
结束语句、释放系统资源
rows
返回作用的行的数目
data_sources
返回本机中可用的数据库的数组。
ChopBlanks
去除空格
NUM_OF_PARAMS
存储过程中占位符的数目
NULLABLE
哪一个行允许Null。
上一页 [1] [2] [3] 下一页
MySQL 的特殊方法
insertid
最后自动递增的值
is_blob
为BLOB的行
is_key
为键的行
is_num
为数字的行
is_pri_key
为主键的行
is_not_null
不能为NULL的行
length
理论上最大的列的数目
max_length
物理上最大的列的数目
NAME
列名
NUM_OF_FIELDS
返回的字段的数目
table
返回的集中的表的名称
type
行的类型
_CreateDB
创建一个数据库
_DropDB
删除一个数据库
connect：
使用connect方法建立一个到数据源的连接。$data_source应该以DBI:driver_name:开始，例如：
$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", $user, $password);
如果用户名或者是口令没有定义的话，那么DBI将使用DBI_USER，DBI_PASS环境变量分别作为其值。如果你没有定义主机的话，那么默认的是“localhost”，如果你没有定义端口号的话，以默认的mysql的端口号（3306）作为端口号。
prepare：
通过数据库引擎预备SQL语句并且返回一个语句句柄($sth)用于参与execute方法，例如：
$sth = $dbh->prepare($statement) or die "Can't prepare $statement: $dbh->errstr\n";
do
do方法预备并执行一个SQL语句，返回作用的行的数目，这个方法通常用于非select的语句，同时一般不需要执行多次（例如：insert，delete等）。例如：
$rc = $dbh->do($statement) or die "Can't execute $statement: $dbh- >errstr\n";
disconnect
disconnect将断开与数据库的连接，通常在程序结束的时候使用。例如：
$rc = $dbh->disconnect;
quote
quote方法用于 "escape"任何在字符串中的特定自负，并且加上引用标记。
$sql = $dbh->quote($string)
execute
该方法执行一个存储的语句。对于非select的语句来说，它返回作用的行的数目，对于select语句来说，该方法仅仅是开始了在数据库中查询，你需要fetch_*方法来取回数据。
$rv = $sth->execute or die "can't execute the query: $sth->errstr;
fetchrow_array
这个方法取回
（出处：http://www.sheup.com）
上一页 [1] [2] [3]
该方法执行一个存储的语句。对于非select的语句来说，它返回作用的行的数目，对于select语句来说，该方法仅仅是开始了在数据库中查询，你需要fetch_*方法来取回数据。
$rv = $sth->execute or die "can't execute the query: $sth->errstr;
fetchrow_array
这个方法取回
（出处：http://www.sheup.com）
上一页 [1] [2] [3] [4]