Perl DBI实例讲解

lixiaolong

　　此文档的目的是给使用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句法。