Perl DBI 初级教程

最新推荐文章于 2021-04-02 19:18:57 发布
最新推荐文章于 2021-04-02 19:18:57 发布
阅读量995 收藏 2
点赞数
文章标签： perl 数据库驱动程序 数据库 sql delete qq

Perl DBI 初级教程

目录 
1. 基本功能  
2. 建立连接 
3. 选项  
4. 下达 SQL  
5. 进阶功能  
6. SELECT语句 
7. 事务机制  
8.参考资料 


本文是以 Perl DBI Examples 为蓝本，以及几个浅显易懂的例子，希望能够一步步地带领使用者学习 Perl DBI modules 存取数据库的方法。

读完本文之后，我们就能学到利用 DBI 建立一个完整的数据库程序。以下就先由 DBI 的基本功能开始，然后再逐步研究改善效率与可靠性技巧。

基本功能 
DBI - Database independent interface for Perl。Perl DBI 是 Perl 程序语言存取数据库时的标准应用程序接口 (API)。DBI 中定义了一组函数、变数和一致性的数据库接口，可满足与特定数据库无关的特性。

值得一提的，DBI 只是一个程序接口，将你的应用程序与一个以上的数据库驱动程序紧密地结合在一起，DBI 的架构主要只是提供标准的接口，目的是为了方便使用者下达一些简单的指令，就可以轻易地让那些驱动程序发挥作用 。

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

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


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

localhost:~$ perldoc DBI  

                      

 

建立连接
每一种数据库都有不同的连接方式，若是想知道特殊用法，请务必阅读 DBD 所提供的说明文件。下面的例子是通过DBI::ODBC的基本方法。

use strict; 
use DBI; 

my $dbh = DBI->connect( 'dbi:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                      ); 

 

   上述的 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:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                      ) 
          || 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:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                        { 
                          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:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                        { 
                          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:ODBC:dbsample', 
                        'testuser', 
                        '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(); 

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

use strict; 
use DBI; 

my $dbh = DBI->connect( 'dbi:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                        { 
                          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:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                        { 
                          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 述时，我们就会希望使用到它了。根据 DBI 文件指出，如果想作一套稳固的事务机制，就应该配合 eval{… } 区块来拦截错误的发生，最后再使用 commit 或 rollback 来完成整个交易程序。这就是我们以下所要谈的内容。 

本程序示将四条数据插入数据库的方法。 

use strict; 
use DBI qw(:sql_types); 

my $dbh = DBI->connect( 'dbi:ODBC:dbsample', 
                        'testuser', 
                        'userpassword', 
                        { 
                          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(); 


注意事项 
1) 关于 finish 的呼叫在我们的例子并不是必要的。这个函数适用于 statement handle 完成时所使用。 
2) 永远要加上 use strict。 

参考资料

《OReilly.Programming.PerlDbi》

 

Per官方网站

http://www.perl.com/

 

Perl DBI官方网站

http://dbi.perl.org/

 

对DBI的一个简短介绍

http://www.perl.com/pub/1999/10/DBI.html  

 

对DBI的深入讨论帖子

http://search.cpan.org/~timb/DBI_AdvancedTalk/

 

一个PerlDBI的在线手册

http://search.cpan.org/~timb/DBI-1.617/DBI.pm

urika
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
perl语言入门简明教程
02-22
通过本入门教程，你可以逐步掌握Perl的基础知识，为进一步深入学习和实践打下坚实基础。阅读《perl教程.pdf》将帮助你更全面地了解Perl语言的各个方面，包括更多的语法特性、高级主题以及实际应用案例。
perl DBI使用详解
weixin_34233421的博客
03-04 499
使用DBI的方法： --------------------------------------------------------------------- use DBI; --------------------------------------------------------------------- 注意：特定的DBD 级的模块不需要包括use 行，因...
mysql 绑定参数_MySQL 使用 Perl 绑定参数和列
weixin_33164198的博客
01-27 280
SQL 语句通常是动态构建的，用户提供一些输入，并将其内置到语句中。 程序员每次处理用户的输入时都必须谨慎。 它具有一些严重的安全隐患。 动态构建 SQL 语句的推荐方法是使用参数绑定。绑定参数可以防止 SQL 注入程序。 它会自动转义一些特殊字符并允许正确处理它们。 当我们准备语句并绑定参数时，许多数据库也会显着提高其性能。该示例从Cars表中为特定的汽车名称选择一行。这是一个可能来自用户的值。...
bindColumn、bindParam与bindValue的区别（转载）
阿龙的博客
09-13 563
bindColumn：绑定一列到一个 PHP 变量（类似于list()函数为变量赋值） <?php //连接数据库函数 functionconnect() { try { $dbh = new PDO("mysql:host=localhost;dbname=test",'root','root'); return $dbh; } catch (Excepti...
DBI模块方法简介
Lynn.Zhou的专栏
04-20 1579
这里介绍DBI模块和Mysql数据库相关方法的一些知识，也好让我们充分了解和操作DBI。使用DBI的方法：-----------------------------------------------------------------------------------use DBI;----------------------------------------------
perl如何联接mysQL_perl如何连接SQL Server数据库
weixin_30384285的博客
02-03 276
本文将提供一些perl连接Microsoft SQL Server数据库的实例。perl脚本运行在Windows和Linux平台。Windows平台如果在Windows平台下运行perl脚本，建议使用依赖DBI的两个模块包，提供标准的数据库接口模块。DBD::ODBCDBD::ADO使用DBD::ODBC如果选用DBD::ODBC，下面的实例代码将展示如何连接到SQL Server数据库：use ...
Perl 简易教程
04-30
本教程旨在为初学者提供一个全面且易于理解的Perl入门指南。 一、Perl简介 Perl起源于1987年，由Larry Wall设计，其设计理念是结合各种语言的优点，如C、sed、awk等。Perl以其灵活性、可读性和强大的文本处理能力而...
神奇的perl两本perl入门教材合集
07-22
"神奇的Perl"两本入门教材合集为初学者提供了深入理解Perl语言的基础和实践经验。 首先，"神奇的Perl-Perl脚本语言最佳入门读物"可能会涵盖以下知识点： 1. **Perl简介**：介绍Perl的历史、特点和适用领域，让读者...
Perl语言入门_中文版第六版
05-20
11. **Perl社区与学习资源**：Perl拥有活跃的社区，如perl.org、perlmonks.org等，提供讨论、教程和问题解答。此外，《Perl语言入门》这本书也是学习Perl的宝贵资料。 通过阅读《Perl语言入门_中文版第六版》，读者...
Perl编程24学时教程
08-08
Perl编程24学时教程是一份详尽的入门资源，专为初学者设计，帮助他们逐步掌握Perl编程语言。Perl，全称为“Practical Extraction and Reporting Language”，是一种强大的文本处理和脚本编程语言，尤其适合处理文本...
perl的DBI安装包以及安装步骤
07-13
该资源为Perl的安装包以及安装步骤，方便linux环境安装perl的DBI，解决在linux环境下使用perl连接数据库的问题。
安装RMySQL需要的DBI
11-11
安装RMySQL需要的DBI，我是在Linux 安装的，不知道windows是不是可用
perl - 操作数据库
shengyao15的专栏
06-28 125
[b]插入DB[/b] [code="java"]use strict; use DBI; use DBD::Oracle; my $dbh=DBI->connect('DBI:Oracle:host=localhost;SID=XE','tristan','654321',{PrintError=>1,RaiseError=>1,ora_session_mode=>2}); m...
perl调用mysql存储过程_Perl DBI执行不维护MySQL存储过程的结果
weixin_33293848的博客
01-21 127
我在从Perl执行存储过程时遇到问题(使用DBI模块).如果我执行一个简单的SELECT * FROM表,则没有问题.SQL代码是：DROP FUNCTION IF EXISTS update_current_stock_price;DELIMITER |CREATE FUNCTION update_current_stock_price (symbolIN VARCHAR(20), nameIN...
perl连接oracle的方法,Perl连接oracle数据库
weixin_36399446的博客
04-02 1179
以后给自己定一个规矩：以后写perl的脚本把配置的一些变量都写到一个配置文件里面：site_config.pl里面，然后在主程序perl脚本里面加上require 'site_config.pl';就可以了，类似于下面的格局：公用的程序就放到common文件夹下，主程序放在progs下。例如我这次perl连接oracle的脚本程序：site_config的内容如下:package config;$...
Perl DBI模块的例子
merlincoy的专栏
07-22 490
  Perl DBI Examples Contents Basics Connecting to the database Options Issuing SQL Intermediate SELECT statements Advanced Transactions Notes Other Reso
perl DBI 总结
kongjunlongaa的博客
04-07 849
        最近在写perl程序进行数据的采集，perl教程在网上少的可怜呐，至少我找到的资料是很少的。在连接数据库方面下面这个博客写的还是很清晰的，所以就转过来了。 源文地址：http://blog.csdn.net/like_zhz/article/details/5441946 DBI和DBD的不同关系模型： ##########################
Perl DBI 数据库操作
酌希的专栏
09-26 6497
本次会议将教你如何使用PERL访问Oracle数据库和其他数据库。 Oraperl模块以访问Oracle，请查看Oraperl手册。 DBI模块使用通用的方式来访问数据库。在本章中，我们将讨论这个模块。 自Perl 5中已经变得非常容易使用DBI编写数据库应用程序. DBI代表独立于数据库的接口Perl DBI为Perl代码和底层数据库之间提供了一个抽象层，这意味着, 让
Part V - Improved Column binding
newjlwg的博客
06-24 283
「译」LINQ: Building an IQueryable Provider - Part V - Improved Column binding 发表于 2016-02-04 | 标签 C♯ ， 翻译 ， LINQ | 作者 刘文俊 英文原文是Matt Warren发表在MSDN Blogs的系列文章之一，英文渣渣，翻译不供参考，请直接看原文。 在前面四篇文章里面，我构...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值