分享
 
 
 

PerlDBI入门

王朝perl·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

目录

基本功能

建立连线

选项

下达 SQL

进阶功能

SELECT 述

高等技巧

交易机制

注意事项

其他资讯

本文是以 Perl DBI Examples 为蓝本,配合 DBMaker 好学易用的特性,以及几个浅显易懂的例子,希望能够一步步地带领使用者学习 Perl DBI modules 存取 DBMaker 资料库的方法。而原作者撰写主要原动力是希望藉由这篇文章的问世,以降低 DBI mailing list 中一再重出现的 FAQ。

读完本文之後,我们就能学到利用 DBI 建立一个完备的资料库程式。 以下就先由 DBI 的基本功能开始,然後再逐步研究改善效能与可靠度技巧。

基本功能

DBI - Database independent interface for Perl. Perl DBI 是 Perl 程式语言存取资料库时的标准应用程式介面 (API)。 DBI 中定义了一组函数、变数和一致性的资料库介面, 可满足与特定资料库无关的特性。

值得一提的,DBI 只是一个程式介面,利用一组十分轻巧的层面, 将你的应用程式与一个以上的资料库驱动程式紧密地结合在一起, DBI 的架构主要只是提供标准的介面,目的是为了方便使用者下达一些简单的指令, 就可以轻易地让那些驱动程式发挥作用

首先该做的事就是建构以及安装 DBI, 详细的步骤可参考 DBI INSTALL 文件中有说明. 然後再来就是建构出所需的资料库驱动程式,或是参考 DBD. 在每个 DBD 套件中都应该会有建构程序。 与其他 Perl 模组相较之下, 安装 DBI/DBD 步骤算是相当容易

localhost:~/DBI-1.08$ perl Makefile.PL && make

&& make test && make install

在 DBI 与 DBD 安装完成之後, 您可以执行下列指令阅读更多的资讯:

localhost:~$ perldoc DBI

建立连线

每一种资料库都有不同的连线方式, 若是想知道特殊用法, 请务必阅读 DBD 所提供的说明文件。 下面的例子是连线到 DBMaker 的基本方法.

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

);

上述的 connect 函数用到了三个参数: 资料来源名称 (data source name, DSN), 使用者名称和密码。 其中 DSN 的格式为 dbi:DriverName:instance. 不过我们要如何知道连线成不成功呢? 首先可以查看 connect 的传回值,true 代表成功,false 就是代表失败。 其次,当有错误发生时, DBI 会把错误讯息存放在 package variable $DBI::errstr 之中。

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

)

|| die "Database connection not made: $DBI::errstr";

$dbh->disconnect();

结束资料库连线请使用 disconnect() 函数, 正确地使用可避免错误讯息 "Database handle destroyed without explicit disconnect" 的发生.

选项

在连线资料库时 connect() 这个方法可以接受 hash 型态的选项,常用的选项包括了: AutoCommit,设为 true 表示资料库交易自动确认; RaiseError,告诉 DBI 在错误发生时触发例外 croak $DBI::errstr 而不只是仅传回错误代码;PrintError,让 DBI 以警告方式 warn $DBI::errstr 传回错误讯息.

在下一段程式中,是希望进行采交易处理的用法,设定成 AutoCommit off,RaiseError on,而让 PrintError 使用内定值 on.

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

{

RaiseError => 1,

AutoCommit => 0

}

)

|| die "Database connection not made: $DBI::errstr";

$dbh->disconnect();

有一点要特别注意,如果资料库本身不支援交易处理的功能时,设定 AutoCommit off 会接收到错误发生的传回值.

下达 SQL

现在开始可以对我们的资料库做一些有意义的事了. 下达至资料库的 SQL 述分成两类. 一是查询指令,预期会有数笔资料传回,例如 SELECT,这一类的指令我们会使用 prepare 方法. 另一类的指令,如 CREATE 和 DELETE,我们会使用 do 方法. 我们先看看後者如何使用.

这一段程式示在资料库中建立一个员工资料表格的方法.

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

{

RaiseError => 1,

AutoCommit => 0

}

)

|| die "Database connection not made: $DBI::errstr";

my $sql = qq{ CREATE TABLE employees ( id INTEGER NOT NULL,

name VARCHAR(128),

title VARCHAR(128),

phone CHAR(10)

) };

$dbh->do( $sql );

$dbh->commit();

$dbh->disconnect();

进阶功能

我们已经学会了连线资料库,错误侦测,以及下达简单的 SQL 述的方法. 是该学一些更有用的程式语法的时候了.

SELECT 述

在 SQL 的述中,最常使用的指令莫过於 SELECT 述. 为了使用 SELECT,我们应该先 prepare 这一段述,然後进行 execute 动作. 在下面的程式片段中,我们都会使用 statement handle $sth 有存取 SELECT 的结果.

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jeerrypassword',

{

RaiseError => 1,

AutoCommit => 0

}

)

|| die "Database connection not made: $DBI::errstr";

my $sql = qq{ SELECT * FROM employees };

my $sth = $dbh->prepare( $sql );

$sth->execute();

$dbh->disconnect();

上述程式要求 DBMaker 资料库为查询指令先准备好执行计画,之後再执行该查询指令. 到目前为止还没有任何一笔记录传回. 稍後我们会使用 bind_columns 的技术以取得资料库输出的记录. bind_columns 分别将每个输出栏位结到一个 scalar reference. 一旦呼叫到 fetch 时,这些 scalars 就会填入这资料库传回的值.

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

{

RaiseError => 1,

AutoCommit => 0

}

)

|| die "Database connection not made: $DBI::errstr";

my $sql = qq{ SELECT id, name, title, phone FROM employees };

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,就能够高速地执行许多次.

use strict;

use DBI;

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

{

RaiseError => 1,

AutoCommit => 0

}

)

|| die "Database connection not made: $DBI::errstr";

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

my $sql = qq{ SELECT id, name, title, phone FROM employees WHERE name LIKE ? };

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 述时,我们就会希望使用到它了 区块来拦截错误的发生,最後再使用 commit 或 rollback 来完成整个交易程序. 这就是我们以下所要谈的内容.

本程式示保四笔记录写入资料库的方法.

use strict;

use DBI qw(:sql_types);

my $dbh = DBI->connect( 'dbi:DBMaker:dbsample',

'jerry',

'jerrypassword',

{

RaiseError => 1,

AutoCommit => 0

}

)

|| die "Database connection not made: $DBI::errstr";

my @records = (

[ 0, "Larry Wall", "Perl Author", "555-0101" ],

[ 1, "Tim Bunce", "DBI Author", "555-0202" ],

[ 2, "Randal Schwartz", "Guy at Large", "555-0303" ],

[ 3, "Doug MacEachern", "Apache Man", "555-0404" ]

);

my $sql = qq{ INSERT INTO employees VALUES ( ?, ?, ?, ? ) };

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 "Database error: $DBI::errstr\n";

$dbh->rollback(); #just die if rollback is failing

}

}

$sth->finish();

$dbh->disconnect();

注意事项

关於 finish 的呼叫在我们的例子并不是必要的. 这个函数适用於 statement handle 完成时所使用。

永远要加上 use strict。

仔细阅读 Perl DBI manual 以深入解 DBI 架构

其他资讯

DBI - A Database Interface Module for Perl 5

DBI at Hermetica

DBI mailing list information

DBI mailing list archives

Persistent connections with mod_perl

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

This document rewrite to Chinese by Jackie Yu. Last modified 20 May 1999

This document Copyright Jeffrey William Baker. Last modified 10 October 1998

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有