perl连接oracle数据库,Perl 连接 Oracle 示例

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

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::errstr\n";

print "I have connected to the Oracle database!\n";

$dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";

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", $username, $password) or die "Cannot conenct db: $DBI::errstr\n";

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 @row\n"

}

$dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";

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!

大功告成

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

具体下载目录在 /2012年资料/9月/12日/Perl 连接 Oracle 示例