perl连接oracle测试实例

最新推荐文章于 2024-07-11 14:18:20 发布

rgb_rgb

最新推荐文章于 2024-07-11 14:18:20 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： perl

本文链接：https://blog.youkuaiyun.com/rgb_rgb/article/details/8760271

perl 专栏收录该内容

6 篇文章

订阅专栏

本文提供了一步一步的指南，详细介绍了如何通过下载、安装DBI和DBD::Oracle模块来连接Oracle数据库。包括环境配置、模块下载与解压、编译与安装步骤，并通过示例代码展示了如何使用这些模块进行数据库连接和查询。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下载地址： http://www.cpan.org
DBI::Oracle 、 DBD::Oracle下载并安装
如果你的linux可以连接网络，执行命令：
#wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.622.tar.gz
#wget http://search.cpan.org/CPAN/authors/id/P/PY/PYTHIAN/DBD-Oracle-1.50.tar.gz
下载到当前目录。

DBI:

[root@pc01 tools]# tar xvfz DBI-1.625.tar.gz
[root@pc01 tools]# cd DBI-1.625

[root@pc01 DBI-1.625]# perl Makefile.PL
[root@pc01 DBI-1.625]# make
[root@pc01 DBI-1.625]# make test
[root@pc01 DBI-1.625]# make install
[root@pc01 DBI-1.625]#

DBD:

DBD::Oracle::模块的安装
1) 设置环境变量
# export ORACLE_HOME=/u01/app/oracle/product/11.2.0/db_1
# export ORACLE_USERID='system/xxxxxx@xxxx'
# export PATH=$ORACLE_HOME/bin:$PATH
# export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$LD_LIBRARY_PATH
2) 安装DBD::Oracle模块
[root@pc01 tools]# tar xvfz DBD-Oracle-1.60.tar.gz
[root@pc01 tools]# cd DBD-Oracle-1.60
[root@pc01 DBD-Oracle-1.60]# perl Makefile.PL
[root@pc01 DBD-Oracle-1.60]# make
[root@pc01 DBD-Oracle-1.60]# make test
[root@pc01 DBD-Oracle-1.60]# make install

连接实例：

#!/usr/bin/perl
use DBI;
$dbname="xxxx";
$user="system";
$passwd="xxxxxx";
$dbh="";
$dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to database ";
$sth=$dbh->prepare("select * from user_tables");
$sth->execute;
while (@recs=$sth->fetchrow_array) {
print $recs[0].":".$recs[1]."\n";
}
$dbh->disconnect;
print "hello \n";
pc197:/home/oracle>perl con.pl
LOGMNR_SESSION_EVOLVE$:SYSAUX
LOGMNR_GLOBAL$:SYSAUX
LOGMNR_GT_TAB_INCLUDE$:
LOGMNR_GT_USER_INCLUDE$:
LOGMNR_GT_XID_INCLUDE$:
LOGMNR_UID$:SYSAUX
LOGMNRGGC_GTLO:SYSTEM
LOGMNRGGC_GTCS:SYSTEM
LOGMNRC_DBNAME_UID_MAP:SYSAUX
LOGMNR_LOG$:SYSAUX

$ more connect.pl
#!/usr/bin/perl
#perl script used to connect to Oracle
use strict;
use DBI;

my $tnsname="xxxx";
my $username="system";
my $password="xxxxxx";

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";

pc197:/home/oracle>perl con2.pl
I have connected to the Oracle database!
Disconnected from Oracle databae!

pc197:/home/oracle>

测试成功。