perlmysql.dll_PerlMySql

一、简介

PERL应用数据库由两种方法&＃xff0c;其一是利用本身所配置的DBM包&＃xff0c;这个可以建立数据库并对其进行操作&＃xff0c;因此可以把DBM包以及其他类似的包看作是一个数据库的扩展。另一个就是利用DBI包或者类似的包建立与其他关系型数据库的连接&＃xff0c;显然&＃xff0c;我们通常需要利用后者。

数据库接口(DBI)是由TIM BUNCE(Tim.Bunce&＃64;ig.co.uk)所书写&＃xff0c;DBI是专门为PERL所书写。你可以在

http://www.hermetica.com/technologia/DBI/ 查找到相应的信息。

最初&＃xff0c;DBI只是由Tim Bunce开发的一个接口包&＃xff0c;后来&＃xff0c;他开发了DBD::Oracle包用于处理与Oracle的接口。然后&＃xff0c;就有了一系列的DBD::Modules的包用于处理与其他类型的数据库的接口。同样&＃xff0c;你可以在&＃xff1a;

http://www.hermetica.com/technologia/DBI/取得详细的信息。现在可以得到的包有如下&＃xff1a;

DBD-Oracle-0.29.tar.gz &＃xff1a; Oracle 数据库

DBD-Informix-0.20pl0.tar.gz &＃xff1a; Informix 数据库

DBD-QBase-0.03.tar.gz &＃xff1a; Quickbase

DBD-mSQL-0.60pl9.tar.gz &＃xff1a; mSQL-based 数据库

DBI-0.67.tar.gz &＃xff1a; DBI 接口

另外还有ODBC的驱动&＃xff0c;从而可以载WINDOWS系统下驱动如ACCESS之类的数据库系统。(当然&＃xff0c;PERL FOR WIN32中也有WIN32::ODBC的包用于处理ODBC兼容的驱动程序)

当取回DBI的驱动程序包之后&＃xff0c;先不急安装&＃xff0c;首先&＃xff0c;测试PERL5是否安装&＃xff0c;这一点很重要&＃xff0c;然后&＃xff1a;

如果PERL5已经安装&＃xff1a; perl Makefile.PL

如果没有安装&＃xff1a;perl Makefile.PL PERL_SRC&＃61;/path/to/perl/source/dir

然后&＃xff1a;

make

make install完成安装

你可以在系统下执行指令$ PERL_DL_DEBUG&＃61;255 perl -e &＃39;use DBI;&＃39;

然后可以得到大致如此的结果&＃xff1a;

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包运行的模式如下&＃xff1a;

(图&＃xff1a;DBI、DBD的工作模式)

让我们看看连接数据发生的典型的过程&＃xff1a;

1、载入DBI驱动程序

2、使用DBD连接相应的数据库

3、打开含有SQL指令的游标

4、取回数据集

5、关闭游标

6、关闭数据库连接

7、退出

我们使用DBI之前首先需要声明&＃xff1a;

#!/usr/bin/perl -w

use DBI;

我们有两种方法可以建立PERL与数据库之间的连接&＃xff1a;

#!/usr/bin/perl -w

use DBI;

#建立与数据库的连接&＃xff0c;第4个参数标明数据库类型

$dbh &＃61; DBI->connect( &＃39;connection_string&＃39;&＃xff0c; &＃39;username&＃39;&＃xff0c; &＃39;password&＃39;&＃xff0c; &＃39;mSQL&＃39; );

if ( !defined $dbh ) {

die "Cannot do \$dbh->connect: $DBI::errstr\n";

}

通过这种方法&＃xff0c;返回一个数据库句柄。这是一种常用的用法&＃xff0c;另外一种方法返回“驱动程序句柄”&＃xff1a;

#!/usr/bin/perl -w

use DBI;

$drh &＃61; DBI->install_driver( &＃39;mSQL&＃39; );

if ( !defined $drh ) {

die "Cannot load driver: $!\n";

}

这种方法多用来检查是否系统中是否存在某种驱动程序。

在使用中&＃xff0c;有三种句柄将要在程序设计中涉及到&＃xff1a;驱动程序句柄(Driver Handle)、数据库句柄(DataBase Handle)、语句句柄(Statement Handle)&＃xff0c;它们之间的关系可以用下图来表示&＃xff1a;

(图&＃xff1a;驱动程序句柄、数据句柄和语句句柄的工作关系)

以下是一些利用DBI处理数据库的历程&＃xff1a;

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&＃39;t connect&＃xff0c; die()

$dbh &＃61; DBI->connect( &＃39;&＃39;&＃xff0c; $ARGV[0]&＃xff0c; &＃39;&＃39;&＃xff0c; $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是一个许多数据库通用的接口&＃xff0c;这意味着你可以写出一个可以工作于许多不同的数据库的脚本。为此&＃xff0c;你需要一个为每中数据库类型定义的DATABASE DRIVER(DBD)&＃xff0c;对于MySQL来说&＃xff0c;这个驱动程序叫DBD::mysql。你可以参考DBIs web page以获得更多的信息。为了获得在Perl5中的关于面向对象编程的概念&＃xff0c;请参考the perl OOP page

三、DBI接口

通用DBI方法

connect

建立与一个数据库服务器的连接

prepare

获取准备执行的SQL语句

do

准备并执行一个SQL语句

disconnect

断开与一个数据库服务器的连接

quote

被插入引用字符串(块)

execute

执行存储过程

fetchrow_array

取出下一行到一个数组之中

fetchrow_arrayref

取出下一行到数组中&＃xff0c;返回数组的引用

fetchrow_hashref

取出下一行到哈希表&＃xff0c;返回其引用

fetchall_arrayref

取出所有的数据到一个数组&＃xff0c;返回其引用。

finish

结束语句、释放系统资源

rows

返回作用的行的数目

data_sources

返回本机中可用的数据库的数组。

ChopBlanks

去除空格

NUM_OF_PARAMS

存储过程中占位符的数目

NULLABLE

哪一个行允许Null。

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&＃xff1a;

使用connect方法建立一个到数据源的连接。$data_source应该以DBI:driver_name:开始&＃xff0c;例如&＃xff1a;

$dbh &＃61; DBI->connect("DBI:mysql:$database", $user, $password); $dbh &＃61; DBI->connect("DBI:mysql:$database:$hostname", $user, $password); $dbh &＃61; DBI->connect("DBI:mysql:$database:$hostname:$port", $user, $password);

如果用户名或者是口令没有定义的话&＃xff0c;那么DBI将使用DBI_USER&＃xff0c;DBI_PASS环境变量分别作为其值。如果你没有定义主机的话&＃xff0c;那么默认的是“localhost”&＃xff0c;如果你没有定义端口号的话&＃xff0c;以默认的mysql的端口号(3306)作为端口号。

prepare&＃xff1a;

通过数据库引擎预备SQL语句并且返回一个语句句柄($sth)用于参与execute方法&＃xff0c;例如&＃xff1a;

$sth &＃61; $dbh->prepare($statement) or die "Can&＃39;t prepare $statement: $dbh->errstr\n";

do

do方法预备并执行一个SQL语句&＃xff0c;返回作用的行的数目&＃xff0c;这个方法通常用于非select的语句&＃xff0c;同时一般不需要执行多次(例如&＃xff1a;insert&＃xff0c;delete等)。例如&＃xff1a;

$rc &＃61; $dbh->do($statement) or die "Can&＃39;t execute $statement: $dbh- >errstr\n";

disconnect

disconnect将断开与数据库的连接&＃xff0c;通常在程序结束的时候使用。例如&＃xff1a;

$rc &＃61; $dbh->disconnect;

quote

quote方法用于 "escape"任何在字符串中的特定自负&＃xff0c;并且加上引用标记。

$sql &＃61; $dbh->quote($string)

execute

该方法执行一个存储的语句。对于非select的语句来说&＃xff0c;它返回作用的行的数目&＃xff0c;对于select语句来说&＃xff0c;该方法仅仅是开始了在数据库中查询&＃xff0c;你需要fetch_*方法来取回数据。

$rv &＃61; $sth->execute or die "can&＃39;t execute the query: $sth->errstr;

fetchrow_array

这个方法取回下一行的数据&＃xff0c;并且将其存储在一个数组之中。例如&＃xff1a;

while(&＃64;row &＃61; $sth->fetchrow_array) { print qw($row[0]\t$row[1]\t$row[2]\n); }

fetchrow_arrayref

这个方法取回下一行的数据&＃xff0c;并将其返回在一个对数组的引用之中。例如&＃xff1a;

while($row_ref &＃61; $sth->fetchrow_arrayref) { print qw($row_ref->[0]\t$row_ref->[1]\t$row_ref->[2]\n); }

fetchrow_hashref

这个方法取回一行数据&＃xff0c;并且返回一个到包含了字段名/值的哈希表的引用。这个方法不如使用一个数组引用的方法有效率。例如&＃xff1a;

while($hash_ref &＃61; $sth->fetchrow_hashref) { print qw($hash_ref->{firstname}\t$hash_ref->{lastname}\t\ $hash_ref- > title}\n); }

fetchall_arrayref

这个方法被用来从一个SQL语句的执行结果中取回所有的数据(行)。它返回一个数组的引用&＃xff0c;你可以通过一个循环来打印/显示这些数据。

my $table &＃61; $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"; }

finish

指示没有更多的数据可以被取出&＃xff0c;你可以通过这个方法释放语句句柄&＃xff0c;并且释放系统资源。例如&＃xff1a;

$rc &＃61; $sth->finish;

rows

返回在(updated&＃xff0c;delete等)操作中作用的行的数目。这通常被用在do()或者非select的execute()语句之后。例如&＃xff1a;

$rv &＃61; $sth->rows;

NULLABLE

返回一个数组的引用&＃xff0c;TRUE分别表示这个列可以允许NULL。

$null_possible &＃61; $sth->{NULLABLE};

NUM_OF_FIELDS

通过SELECT或者LISTFILEDS语句返回的列的数目。如果数目为0表示一个非SELECT语句的执行&＃xff0c;例如&＃xff0c;INSERT&＃xff0c;DELETE或者UPDATE等。

$nr_of_fields &＃61; $sth->{NUM_OF_FIELDS};

data_sources

这个方法返回在localhost中的mysql服务中可用的数据库的数组。

&＃64;dbs &＃61; DBI->data_sources("mysql");

ChopBlanks

这个方法决定了返回的行中是否去除空格。

$sth->{&＃39;ChopBlanks&＃39;) &＃61;1;

insertid

如果你使用了mysql的自动增值的特性&＃xff0c;那么最新的自动增值将被存储。例如&＃xff1a;

$new_id &＃61; $sth->{insertid};

is_blob

返回一个数组的引用&＃xff0c;TRUE分别表示所指示的列是BLOB。

$keys &＃61; $sth->{is_blob};

is_key

返回一个数组的引用&＃xff0c;TRUE分别表示所指示的列是KEY。

$keys &＃61; $sth->{is_key};

is_num

返回一个数组的引用&＃xff0c;TRUE分别表示所指示的列包含了数字。

$nums &＃61; $sth->{is_num};

is_pri_key

返回一个数组的引用&＃xff0c;TRUE分别表示所指示的列是一个主键。

$pri_keys &＃61; $sth->{is_pri_key};

is_not_null

返回一个数组的引用&＃xff0c;FALSE表示这个列可以包含NULL&＃xff0c;而你最好使用DBI标准中的NULLABLE属性。

$not_nulls &＃61; $sth->{is_not_null};

max_length、length

返回一个指示最大列的尺寸的数组的引用。最大长度是指在结果的表中的最大数值&＃xff0c;LENGTH给出了理论上的最大值。

$max_lengts &＃61; $sth->{max_length}; $lengts &＃61; $sth->{length};

NAME

返回一个列名称的数组的引用。

$names &＃61; $sth->{NAME};

table

返回了表名称的数组的引用。

$tables &＃61; $sth->{table};