Question

问大家一个关于perl连接oracle的问题???

有两台电脑,一台windows系统,安装有oracle数据库(A),一台linux系统,安装有perl(B),
怎样让B电脑的perl程序能连接上A电脑的oracle数据库.需要安装什么软件,谢谢大家

Answer 1

我博客的原文地址：

Perl 连接 Oracle 示例 

http://blog.csdn.net/renfengjun/article/details/7967548

首先需要先下载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::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!

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

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

追问

安装dbd（需要先设置oracle_home）,您的意思是,得先在linux上安装oracle客户端了,是吗?不然,oracle_home怎么指定啊.

追答

对！

Answer 2

配个监听就行了，不麻烦