Perl 连接 Oracle 示例

1.首先需要先下载3个模块

地址：

ftp://ftp.funet.fi/pub/languages/perl/CPAN/modules/by-module/DBI/

DBI-1.622.tar.gz?

DBD-Oracle-1.50.tar.gz?

Data-ShowTable-3.3.tar.gz?(data目录中)

2. 安装
[root@james-test oracle]# tar xzvf DBI-1.622.tar.gz?
[root@james-test oracle]# tar xzvf DBD-Oracle-1.50.tar.gz?
[root@james-test oracle]# tar xzvf Data-ShowTable-3.3.tar.gz?

以下安装命令都使用的root用户

安装dbi

cd DBI-1.622
perl Makefile.PL
make
make install

安装showtable
cd Data-ShowTable-3.3
perl Makefile.PL
make
make install

安装dbd（需要先设置oracle_home）
cd DBD-Oracle-1.50
export ORACLE_HOME=/u01/apps/oracle/product/11gr2/db_1
perl Makefile.PL
make
make install


模块安装完毕


3.下面来两个示例


example 1 ?简单连接数据库示例：
2.p :
#!/usr/bin/perl
#perl script used to connect to Oracle
use strict;
use DBI;


my $tnsname="david";
my $username="dexter";
my $password="xiaojun";


my $dbh=DBI->connect("dbi:Oracle:$tnsname",$username,$password) or die "Cannot conenct db: $DBI::errstrn";
print "I have connected to the Oracle database!n";


$dbh->disconnect or warn "DB disconnect failed: $DBI::errstrn";
print "Disconnected from Oracle databae!n";


连接成功
[oracle@james-test ~]$ ./2.p?
I have connected to the Oracle database!
Disconnected from Oracle databae!


example 2 ?连接数据库并且查询表示例：
稍微修改一下
2.p:
#!/usr/bin/perl
#perl script used to connect to Oracle
use strict;
use DBI;


my @row ;
my $tnsname="david";
my $username="dexter";
my $password="xiaojun";


my $dbh=DBI->connect("dbi:Oracle:$tnsname",$password) or die "Cannot conenct db: $DBI::errstrn";
print "I have connected to the Oracle database!n";


my $sth=$dbh->prepare(" select * from emp_t " );
$sth->execute();
while (@row = $sth->fetchrow_array()) {
? ? ? ? print "row's @rown"
}
$dbh->disconnect or warn "DB disconnect failed: $DBI::errstrn";
print "Disconnected from Oracle databae!n";




[oracle@james-test ~]$ ./2.p?
I have connected to the Oracle database!
row's 7369 SMITH CLERK 7902 17-DEC-80 800 ?20
row's 7499 ALLEN SALESMAN 7698 20-FEB-81 1600 300 30
row's 7521 WARD SALESMAN 7698 22-FEB-81 1250 500 30
row's 7566 JONES MANAGER 7839 02-APR-81 2975 ?20
row's 7654 MARTIN SALESMAN 7698 28-SEP-81 1250 1400 30
row's 7698 BLAKE MANAGER 7839 01-MAY-81 2850 ?30
row's 7782 CLARK MANAGER 7839 09-JUN-81 2450 ?10
row's 7788 SCOTT ANALYST 7566 19-APR-87 3000 ?20
row's 7839 KING PRESIDENT ?17-NOV-81 5000 ?10
row's 7844 TURNER SALESMAN 7698 08-SEP-81 1500 0 30
row's 7876 ADAMS CLERK 7788 23-MAY-87 1100 ?20
row's 7900 JAMES CLERK 7698 03-DEC-81 950 ?30
row's 7902 FORD ANALYST 7566 03-DEC-81 3000 ?20
row's 7934 MILLER CLERK 7782 23-JAN-82 1300 ?10
Disconnected from Oracle databae!


大功告成

文中涉及的三个包我已经上传，详细看下面的地址：

http://download.csdn.net/detail/renfengjun/4563255