PerlDBI入門

2019-11-18 17:23:44

字體：大中小

來源：轉載

供稿：網友

目錄
基本功能
建立連線
選項
下達SQL
進階功能
SELECT述
高等技巧
交易機制
注意事項
其他資訊

本文是以PerlDBIExamples為藍本，配合DBMaker好學易用的特性，以及幾個淺顯易懂的例子，希望能夠一步步地帶領使用者學習PerlDBImodules存取DBMaker資料庫的方法。而原作者撰寫主要原動力是希望藉由這篇文章的問世，以降低DBImailinglist中一再重出現的FAQ。

讀完本文之後，我們就能學到利用DBI建立一個完備的資料庫程式。以下就先由DBI的基本功能開始，然後再逐步研究改善效能與可靠度技巧。

基本功能
DBI-DatabaseindependentinterfaceforPerl.PerlDBI是Perl程式語言存取資料庫時的標準應用程式介面(API)。DBI中定義了一組函數、變數和一致性的資料庫介面，可滿足與特定資料庫無關的特性。

值得一提的，DBI只是一個程式介面，利用一組十分輕巧的層面，將你的應用程式與一個以上的資料庫驅動程式緊密地結合在一起，DBI的架構主要只是提供標準的介面，目的是為了方便使用者下達一些簡單的指令，就可以輕易地讓那些驅動程式發揮作用

首先該做的事就是建構以及安裝DBI，詳細的步驟可參考DBIINSTALL文件中有說明.然後再來就是建構出所需的資料庫驅動程式，或是參考DBD.在每個DBD套件中都應該會有建構程序。與其他Perl模組相較之下，安裝DBI/DBD步驟算是相當容易

localhost:~/DBI-1.08$perlMakefile.PL&&make
&&maketest&&makeinstall
在DBI與DBD安裝完成之後，您可以執行下列指令閱讀更多的資訊:

localhost:~$perldocDBI
建立連線
每一種資料庫都有不同的連線方式，若是想知道特殊用法，請務必閱讀DBD所提供的說明文件。下面的例子是連線到DBMaker的基本方法.

usestrict;
useDBI;

my$dbh=DBI->connect('dbi:DBMaker:dbsample',
'jerry',
'jerrypassWord',
);

上述的connect函數用到了三個參數:資料來源名稱(datasourcename,DSN),使用者名稱和密碼。其中DSN的格式為dbi:DriverName:instance.不過我們要如何知道連線成不成功呢?首先可以查看connect的傳回值，true代表成功，false就是代表失敗。其次，當有錯誤發生時，DBI會把錯誤訊息存放在packagevariable$DBI::errstr之中。

usestrict;
useDBI;

my$dbh=DBI->connect('dbi:DBMaker:dbsample',
'jerry',
'jerrypassword',
)
||die"Databaseconnectionnotmade:$DBI::errstr";
$dbh->disconnect();

結束資料庫連線請使用disconnect()函數，正確地使用可避免錯誤訊息"Databasehandledestroyedwithoutexplicitdisconnect"的發生.

選項
在連線資料庫時connect()這個方法可以接受hash型態的選項，常用的選項包括了:AutoCommit，設為true表示資料庫交易自動確認；RaiseError，告訴DBI在錯誤發生時觸發例外croak$DBI::errstr而不只是僅傳回錯誤代碼；
my$sql=QQ{CREATETABLEemployees(idINTEGERNOTNULL,
nameVARCHAR(128),
titleVARCHAR(128),
phoneCHAR(10)
)};
$dbh->do($sql);
$dbh->commit();
$dbh->disconnect();

進階功能
我們已經學會了連線資料庫，錯誤偵測，以及下達簡單的SQL述的方法.是該學一些更有用的程式語法的時候了.

SELECT述
在SQL的述中，最常使用的指令莫過於SELECT述.為了使用SELECT，我們應該先prepare這一段述，然後進行execute動作.在下面的程式片段中，我們都會使用statementhandle$sth有存取SELECT的結果.

usestrict;
useDBI;

my$dbh=DBI->connect('dbi:DBMaker:dbsample',
'jerry',
'jeerrypassword',
{
RaiseError=>1,
AutoCommit=>0
}
)
||die"Databaseconnectionnotmade:$DBI::errstr";

my$sql=qq{SELECT*FROMemployees};
my$sth=$dbh->prepare($sql);
$sth->execute();

$dbh->disconnect();

上述程式要求DBMaker資料庫為查詢指令先準備好執行計畫，之後再執行該查詢指令.到目前為止還沒有任何一筆記錄傳回.稍後我們會使用bind_columns的技術以取得資料庫輸出的記錄.bind_columns分別將每個輸出欄位結到一個scalarreference.一旦呼叫到fetch時，這些scalars就會填入這資料庫傳回的值.

usestrict;
useDBI;

my$dbh=DBI->connect('dbi:DBMaker:dbsample',
'jerry',
'jerrypassword',
{
RaiseError=>1,
AutoCommit=>0
}
)
||die"Databaseconnectionnotmade:$DBI::errstr";

my$sql=qq{SELECTid,name,title,phoneFROMemployees};
my$sth=$dbh->prepare($sql);
$sth->execute();

my($id,$name,$title,$phone);
$sth->bind_columns(undef,/$id,/$name,/$title,/$phone);

while($sth->fetch()){
print"$name,$title,$phone/n";
}

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

這倒是一個列印出全公司電話連絡簿的好方法，尤其是WHERE區塊的使用讓我們輕易地取出所有的資料輸出!下面會利用到bind_param先將SQL述做一次prepare，就能夠高速地執行許多次.

usestrict;
useDBI;

my$dbh=DBI->connect('dbi:DBMaker:dbsample',
'jerry',
'jerrypassword',
{
RaiseError=>1,
AutoCommit=>0
}
)
||die"Databaseconnectionnotmade:$DBI::errstr";

my@names=("Larry","Tim","Randal","Doug");

my$sql=qq{SELECTid,name,title,phoneFROMemployeesWHEREnameLIKE?};
my$sth=$dbh->prepare($sql);

for(@names){
$sth->bind_param(1,$_);
$sth->execute();

my($id,$name,$title,$phone);
$sth->bind_columns(undef,/$id,/$name,/$title,/$phone);

while($sth->fetch()){
print"$name,$title,$phone/n";
}
}

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

高等技巧
交易機制
到目前為止，我們的動作都還不需要使用到交易機制的功能，不過當下達UPDATE或是DELETE述時，我們就會希望使用到它了.根據DBI文件指出，如果想作一套穩固的交易機制，就應該配合eval{...}區塊來攔截錯誤的發生，最後再使用commit或rollback來完成整個交易程序.這就是我們以下所要談的內容.

本程式示保四筆記錄寫入資料庫的方法.

usestrict;
useDBIqw(:sql_types);

my$dbh=DBI->connect('dbi:DBMaker:dbsample',
'jerry',
'jerrypassword',
{
RaiseError=>1,
AutoCommit=>0
}
)
||die"Databaseconnectionnotmade:$DBI::errstr";

my@records=(
[0,"LarryWall","PerlAuthor","555-0101"],
[1,"TimBunce","DBIAuthor","555-0202"],
[2,"RandalSchwartz","GuyatLarge","555-0303"],
[3,"DougMacEachern","ApacheMan","555-0404"]
);

my$sql=qq{INSERTINTOemployeesVALUES(?,?,?,?)};
my$sth=$dbh->prepare($sql);

for(@records){
eval{
$sth->bind_param(1,@$_->[0]);
$sth->bind_param(2,@$_->[1]);
$sth->bind_param(3,@$_->[2]);
$sth->bind_param(4,@$_->[3]);
$sth->execute();
$dbh->commit();
};

if($@){
warn"Databaseerror:$DBI::errstr/n";
$dbh->rollback();#justdieifrollbackisfailing
}
}

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

注意事項
關於finish的呼叫在我們的例子并不是必要的.這個函數適用於statementhandle完成時所使用。
永遠要加上usestrict。
仔細閱讀PerlDBImanual以深入解DBI架構
其他資訊
DBI-ADatabaseInterfaceModuleforPerl5
DBIatHermetica
DBImailinglistinformation
DBImailinglistarchives
Persistentconnectionswithmod_perl

--------------------------------------------------------------------------------

ThisdocumentrewritetoChinesebyJackieYu.Lastmodified20May1999
ThisdocumentCopyrightJeffreyWilliamBaker.Lastmodified10October1998

上一篇：Perl如何調試程序

下一篇：Perl語言全面編譯（四）