一、簡介
PERL應用數據庫由兩種方法,其一是利用本身所配置的DBM包,這個可以建立數據庫並對其進行操作,因此可以把DBM包以及其他類似的包看作是一個數據庫的擴展。另一個就是利用DBI包或者類似的包建立與其他關係型數據庫的連接,顯然,我們通常需要利用後者。
數據庫接口(DBI)是由TIM BUNCE(Tim.Bunce@ig.co.uk)所書寫,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 ) {
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。
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
這個方法取回下一行的數據,並且將其存儲在一個數組之中。例如:
while(@row = $sth->fetchrow_array) { print qw($row[0]/t$row[1]/t$row[2]/n); }
fetchrow_arrayref
這個方法取回下一行的數據,並將其返回在一個對數組的引用之中。例如:
while($row_ref = $sth->fetchrow_arrayref) { print qw($row_ref->[0]/t$row_ref->[1]/t$row_ref->[2]/n); }
fetchrow_hashref
這個方法取回一行數據,並且返回一個到包含了字段名/值的哈希表的引用。這個方法不如使用一個數組引用的方法有效率。例如:
while($hash_ref = $sth->fetchrow_hashref) { print qw($hash_ref->{firstname}/t$hash_ref->{lastname}/t/ $hash_ref- > title}/n); }
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"; }
finish
指示沒有更多的數據可以被取出,你可以通過這個方法釋放語句句柄,並且釋放系統資源。例如:
$rc = $sth->finish;
rows
返回在(updated,delete等)操作中作用的行的數目。這通常被用在do()或者非select的execute()語句之後。例如:
$rv = $sth->rows;
NULLABLE
返回一個數組的引用,TRUE分別表示這個列可以允許NULL。
$null_possible = $sth->{NULLABLE};
NUM_OF_FIELDS
通過SELECT或者LISTFILEDS語句返回的列的數目。如果數目為0表示一個非SELECT語句的執行,例如,INSERT,DELETE或者UPDATE等。
$nr_of_fields = $sth->{NUM_OF_FIELDS};
data_sources
這個方法返回在localhost中的mysql服務中可用的數據庫的數組。
@dbs = DBI->data_sources("mysql");
ChopBlanks
這個方法決定了返回的行中是否去除空格。
$sth->{'ChopBlanks') =1;
insertid
如果你使用了mysql的自動增值的特性,那麼最新的自動增值將被存儲。例如:
$new_id = $sth->{insertid};
is_blob
返回一個數組的引用,TRUE分別表示所指示的列是BLOB。
$keys = $sth->{is_blob};
is_key
返回一個數組的引用,TRUE分別表示所指示的列是KEY。
$keys = $sth->{is_key};
is_num
返回一個數組的引用,TRUE分別表示所指示的列包含了數字。
$nums = $sth->{is_num};
is_pri_key
返回一個數組的引用,TRUE分別表示所指示的列是一個主鍵。
$pri_keys = $sth->{is_pri_key};
is_not_null
返回一個數組的引用,FALSE表示這個列可以包含NULL,而你最好使用DBI標準中的NULLABLE屬性。
$not_nulls = $sth->{is_not_null};
max_length、length
返回一個指示最大列的尺寸的數組的引用。最大長度是指在結果的表中的最大數值,LENGTH給出了理論上的最大值。
$max_lengts = $sth->{max_length}; $lengts = $sth->{length};
NAME
返回一個列名稱的數組的引用。
$names = $sth->{NAME};
table
返回了表名稱的數組的引用。
$tables = $sth->{table};
中文
$dbh->do("SET character_set_client='gbk'");
$dbh->do("SET character_set_connection='gbk'");
$dbh->do("SET character_set_results='gbk'");