Perl DBI实例

最新推荐文章于 2024-07-19 23:42:39 发布
最新推荐文章于 2024-07-19 23:42:39 发布
阅读量2.8k 收藏
点赞数
文章标签： perl oracle database 数据库 sql 文档
本文来源：http://www.saturn5.com/~jwb/dbi-examples.html
翻译：Aylazhang
日期：2007/07/25
----------------------------------------------------------------------------------------------------------------

内容：

  基础知识：

            建立连接
            选项
            发出SQL

    中级

           
  • SELECT 声明

        高级

                事务处理
                Oracle存储过程
        备注
        其他资源


    此文档的目的是给使用Perl DBI模块访问数据库的开发人员提供一些实列。也为了减轻Perl DBI邮件列表的负担。
    通过此文档，我们将建立更加友好的DBI程序来访问Oracle数据库。我们将从DBI基础知识开始，然后介绍一些关于提高性能跟稳定性的概念。

    基础知识：
    我们要做的第一件事情是安装DBI模块。这在 DBI INSTALL 文档中有介绍。接着我们需要安装数据库驱动，或者称为DBD。其安装简介也在每个

    DBD的包中有介绍。如大多数Perl模块一样，安装DBI/DBD是很容易的：
    localhost:/opt/src/perl_modules/DBI-1.13$ perl Makefile.PL && make && make test && make install
    装完DBI 跟 DBD，你可以这样得到更多的信息：
    localhost:~$ perldoc DBI

    连接数据库：
    连接不同的数据库需要不同的方法。为得到详尽的信息，请阅读来在DBD的说明文档。 下面的例子适用于连接Oracle：
    use strict;
    use DBI;

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                          );
                         
                         
    上面的连接字符串(DSN)有三个参数：数据源，用户名和密码。DSN（数据源名称) 形式是这样的：dbi:驱动名称:实列 。但是我们怎么知道
    连接是成功还是失败了呢？首先，如果connect方法连接成功，将返回一个true，否则返回false。其次，DBI将在包变量$DBI::errstr设置
    一个错误消息串。

    use strict;
    use DBI;

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                          ) || die "Database connection not made: $DBI::errstr";
    $dbh->disconnect();
    使用disconnect()方法将避免出现“Database handle destroyed without explicit disconnect”这样的错误。

    选项：
    connect()方法可以带一个哈希选项。常用的哈希选项包括：AutoCommit,当它为true时，事务处理将被自动提交。RaiseError,它在DBI遇到
    错误时调用croak $DBI::errstr。PrintError，它将调用DBI的warn $DBI::errstr。

    在这个程序中，我们想使用事务处理，因此我们关闭AutoCommit，开启RaiseError，PrintError用其默认设置。 

    use strict;
    use DBI;

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                            {
                              RaiseError => 1,
                              AutoCommit => 0
                            }
                          ) || die "Database connection not made: $DBI::errstr";
    $dbh->disconnect();

    注意的是，对于不支持事务处理的数据库而言，设置AutoCommit为false将导致严重错误。

    发出SQL：
    现在我们打算在数据库上作些有用的事。有两种得到数据库SQL声明的方法。对于查询，将发挥行记录，比如SELECT，我们将使用prepare 方法
    对于其他查询，比如CREATE  跟 DELETE，我们将使用 do 方法。让我们先来看一下后者，等一下下再看前一种情况。

    这个程序将在数据库中建立一个雇员表 ：
    use strict;
    use DBI;

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                            {
                              RaiseError => 1,
                              AutoCommit => 0
                            }
                          ) || die "Database connection not made: $DBI::errstr";

    my $sql = qq{ CREATE TABLE employees ( id INTEGER NOT NULL,
                                           name VARCHAR2(128),
                                           title VARCHAR2(128),
                                           phone CHAR(8)
                                         ) };
    $dbh->do( $sql );

    $dbh->disconnect();
       
       
       
     
    中级：
    我们已经看到了怎样连接数据库，怎样发现错误以及发出简单SQL声明了。现在让我们继续前进看看更有用的代码吧。

    SELECT 声明：
    SELECT大概是SQL中最常用使用的了。为了用SELECT声明，我们首先将prepare(准备)声明，然后execute(执行)它。下列代码中，
    $sth 变量是声明句柄，我们将利用它来访问SELECT的结果。

    use strict;
    use DBI;

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                            {
                              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方法绑定每个数据库行和对应的一个标量引用，然后当fetch方法被调用时，这些
    变量将装载从数据库里取来的值。

    use strict;
    use DBI;

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                            {
                              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声明，执行将非常快。

    use strict;
    use DBI qw(:sql_types);

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                            {
                              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, $_, SQL_VARCHAR );
      $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文档，用DBI执行健壮的事务处理的最好方法是使用eval{...} 块去捕获错误。然后使用commit() 或者 rollback()来结束事务处理。这
    就是我们下面的代码清单所做的事情。

    程序往数据库里装载四条记录。
    use strict;
    use DBI qw(:sql_types);

    my $dbh = DBI->connect( 'dbi:Oracle:orcl',
                            'jeffrey',
                            'jeffspassword',
                            {
                              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], SQL_INTEGER );
        $sth->bind_param( 2, @$_->[1], SQL_VARCHAR );
        $sth->bind_param( 3, @$_->[2], SQL_VARCHAR );
        $sth->bind_param( 4, @$_->[3], SQL_VARCHAR );
        $sth->execute();
        $dbh->commit();
      };

      if( $@ ) {
        warn "Database error: $DBI::errstr/n";
        $dbh->rollback(); #just die if rollback is failing
      }
    }

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

      调用Oracle存储过程：
      通过DBI用户邮件列表，我通常被问及的一个问题是，怎么用DBD::Oracle调用存储过程。这里我给出复杂多变的例子。
     
    这个程序用一个参数调用存储过程，没有返回值。我们假设这个不过不调用commit。注意程序中位置占位符的使用，同时也注意eval块的使用
    ：如果你的Oracle程序产生了列外，在你的Perl程序中将被“翻译”成die，错误信息将被保留在$@ 和 $DBI::errstr变量中。


    use strict;
    use DBI;

    my $dbh = DBI->connect(
        'dbi:Oracle:orcl',
        'jeffrey',
        'jeffspassword',
        {
            RaiseError => 1,
            AutoCommit => 0
        }
    ) || die "Database connection not made: $DBI::errstr";

    eval {
        my $func = $dbh->prepare(q{
            BEGIN
                jwb_function(
                    parameter1_in => :parameter1
                );
            END;
        });
     
        $func->bind_param(":parameter1", 'Bunce'); #位置占位符时方便的
        $func->execute;
     
        $dbh->commit;
    };

    if( $@ ) {
        warn "Execution of stored procedure failed: $DBI::errstr/n";
        $dbh->rollback;
    }

    $dbh->disconnect;

    下一个程序调用带返回值的存储过程，从一个函数中返回一个值，我们使用bind_param_inout来绑定占位符。当使用这种方法时，我们必须
    通知DBD::Oracle模块返回值有多少字节。

    use strict;
    use DBI;

    my $dbh = DBI->connect(
        'dbi:Oracle:orcl',
        'jeffrey',
        'jeffspassword',
        {
            RaiseError => 1,
            AutoCommit => 0
        }
    ) || die "Database connection not made: $DBI::errstr";

    my $rv; #holds the return value from Oracle stored procedure
    eval {
        my $func = $dbh->prepare(q{
            BEGIN
                :rv := jwb_function(
                    parameter1_in => :parameter1
                );
            END;
        });
     
        $func->bind_param(":parameter1", 'Bunce');
        $func->bind_param_inout(":rv", /$rv, 6);
        $func->execute;
     
        $dbh->commit;
    };

    if( $@ ) {
        warn "Execution of stored procedure failed: $DBI::errstr/n";
        $dbh->rollback;
    }

    print "Execution of stored procedure returned $rv/n";

    $dbh->disconnect;


    备注：
    1.这些例子中的finish方法不是必需的。如果你是用声明句柄而不是你自己的程序来做，那么你应该调用finish方法。
    2.永远使用use strict句法。

    其他资源：
    DBI home page
    How to use mod_perl and Apache::DBI

    文档著作权归 Jeffrey William Baker. 最后更新 2003年11月11日
Aylazhang
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
PERL_DBI手册.pdf
05-20
perl的DBI使用手册，详细描述了如何连接数据库，如何使用dbi模块，对于使用perl语言进行运维，开发的小伙伴希望带来帮助
Perl DBI 入门
程序人生
09-20 1918
本文是以 Perl DBI Examples 为蓝本，配合 DBMaker 好学易用的特性，以及几个浅显易懂的例 子，希望能够一步步地带领使用者学习 Perl DBI modules 存取 DBMaker 资料库的方法。而原作者 撰写主要原动力是希望藉由这篇文章的问世，以降低 DBI mailing list 中一再重出现的 FAQ。 读完本文之後，我们就能学到利用 DBI
Perl与数据库DBI快速入门
weixin_33862041的博客
08-15 354
为什么80%的码农都做不了架构师？>>> ...
perl DBI 学习总结
热门推荐
like_zhz的专栏
04-01 1万+
perl DBI 学习总结 DBI和DBD的不同关系模型：##########################################################################可移植的DBI方法：connect    建立到一个数据库服务器的连接disconnect   断开数据库服务器的连接prepare    准备执行一个SQL语句execute   
Perl DBI 基础
frylion的专栏
12-01 4575
创建你的web开发资料库，    本节提供dbi 的背景信息—在编写自己的脚本和支持其他人编写的脚本时，需要这些信息。如果已经熟悉dbi，则可以略过这节，直接跳到7 . 3节“运行dbi”。 dbi 数据类型     从某些方面来说，使用perl dbi api 类似于使用第6章介绍的c 客户机库。在使用c 客户机库时，主要依靠指向结构或数组的指针来调用函数和访问与mysql相关的数据
Perl DBI 参考(强烈推荐)
08-13
接下来，我们看一个简单的DBI脚本实例——`dump_members`。这个脚本展示了如何连接到MySQL服务器，执行查询并获取结果。脚本的第一行`#!/usr/bin/perl`是Perl解释器的路径，确保脚本能够正确执行。注释提供了脚本的...
Programming Perl DBI 8
05-07
9. **实例分析**：提供实际的代码示例和案例研究，帮助读者更好地理解和应用DBI，解决实际工作中的问题。 10. **最佳实践**：分享编写高效、健壮和易于维护的DBI代码的最佳实践，包括代码组织结构、异常处理、日志...
perl常见编程100个实例
07-17
5. **模块使用**：Perl拥有丰富的CPAN（Comprehensive Perl Archive Network）库，提供数千个预编译的模块，如`LWP::UserAgent`用于网络请求，`DBI`用于数据库操作。 6. **网络编程**：Perl可以创建客户端和服务器...
Perl实例精解书中源码
10-06
3. **模块使用**：Perl有丰富的CPAN（Comprehensive Perl Archive Network）库，书中可能涉及一些常用模块的使用，如LWP（用于Web请求）、DBI（数据库接口）或XML::Parser（处理XML文档）。 4. **网络编程**：Perl...
perl实例精解（第三版）
08-18
例如，DBI模块是Perl数据库接口的标准，通过实例，读者可以学习如何连接数据库，执行SQL查询，并处理查询结果。 最后，本书可能还会涉及一些高级主题，如错误处理、异常处理、线程和并发编程，以及Perl在Web开发、...
Perl-DBI编程
12-05
Perl-DBI编程，dbi开发必备资料
perl DBI.doc
12-18
这是一篇对perl中关于DBI操作，简单容易理解！
linuxcentos系统perl使用的-DBI插件
09-14
服务器系统：linux centos 应用分类：perl使用的DBI应用
perl的DBI安装包以及安装步骤
07-13
该资源为Perl的安装包以及安装步骤，方便linux环境安装perl的DBI，解决在linux环境下使用perl连接数据库的问题。
perl DBI 总结
kongjunlongaa的博客
04-07 850
        最近在写perl程序进行数据的采集，perl教程在网上少的可怜呐，至少我找到的资料是很少的。在连接数据库方面下面这个博客写的还是很清晰的，所以就转过来了。 源文地址：http://blog.csdn.net/like_zhz/article/details/5441946 DBI和DBD的不同关系模型： ##########################
Perl DBI 初级教程
urika的专栏
02-25 996
Perl DBI 初级教程 目录  1. 基本功能   2. 建立连接  3. 选项   4. 下达 SQL   5. 进阶功能   6. SELECT语句  7. 事务机制   8.参考资料  本文是以 Perl DBI Examples 为蓝本，以及几个浅显易懂的例子，希望能够一步步地带领使用者学习 Perl DBI modules 存取数据库的方法。 读完本
perl dbi 测试 mysql wait_timeout
zhaoyangjian724的专栏
10-08 577
The number of seconds the server waits for activity on a noninteractive connection before closing it. mysql server 等待活动的秒数在一个非交互式的连接在关闭前,超出这个时间就会关闭连接 [root@wx03 mojo]# morbo relink.pl Server ava
使用 Perl - 常见的 DBI 方法
weixin_50950666的博客
01-06 230
使用 Perl - 常见的 DBI 方法
Perl与数据库交互：深入理解DBI模块
最新发布
2402_85762143的博客
07-19 747
DBI是Perl的一个核心模块，用于提供数据库访问的抽象层。它定义了一组标准的方法和属性，以实现与不同数据库的交互。DBI模块的安装通常与Perl的安装一起提供，不需要额外安装。Perl的DBI模块为数据库交互提供了一个强大而灵活的接口。通过本文的介绍，你应该对如何在Perl中使用DBI模块进行数据库操作有了基本的了解。无论是进行简单的查询还是复杂的事务处理，DBI模块都能够提供必要的支持。掌握DBI模块的使用，将使你能够更有效地在Perl中处理数据库相关的任务。
Perl DBI手册：连接与查询指南
"PERL_DBI手册 - 中文翻译版，涵盖DBI类、方法、驱动、示例等内容，包括DBI应用程序的架构、通用接口规则、命名习惯、SQL使用、DBI类方法、数据库处理器对象及其方法等。" Perl DBI（Database Independent ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值