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用户安装dbicd 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 ";
print "I have connected to the Oracle database！ ";

$dbh->disconnect or warn "DB disconnect failed: $DBI::errstr ";
print "Disconnected from Oracle databae！ ";

连接成功
[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 ";
print "I have connected to the Oracle database！ ";

my $sth=$dbh->prepare（" select * from emp_t " ）;
$sth->execute（）;
while （@row = $sth->fetchrow_array（）） {
print "row"s @row "
}
$dbh->disconnect or warn "DB disconnect failed: $DBI::errstr ";
print "Disconnected from Oracle databae！ ";

[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://linux.linuxidc.com/用户名与密码都是www.linuxidc.com具体下载目录在 /2012年资料/9月/12日/Perl 连接 Oracle 示例Oracle按照两列中最大值进行排序Oracle导入dmp遇到问题解决相关资讯 Perl

Perl的Notepad++环境配置（04月23日）
Perl 若A则B判断的表示方法（05/28/2015 20:35:30）
Perl中的真与假（02/23/2015 13:21:51）

Perl 循环语句（05/28/2015 20:39:01）
Perl 中的正则表达式（02/23/2015 13:23:42）
Perl 5.20.2 发布下载（02/16/2015 08:43:41）

本文评论查看全部评论（0）