32位perl如何读取64位oracle?

beyondlee1

如题：

网上查询了一下，都是说因为32位perl不能访问64位oracle的数据库。

请问如下错误如何解决：

Can't load 'C:/Perl/lib/auto/DBD/Oracle/Oracle.dll' for module DBD::Oracle: load_file:找不到指定的模块。 at C:/Perl/lib/DynaLoader.pm line 191.


我用64位的perl，没有错误~!

谢谢~！

hn_weicr

不可能吧，肯定是你哪错了。
Oracle服务器进程通过处理SQL和PL/SQL请求，代表每个用户与SGA进行交互，根本就不会理会客户端是多少位的应用。
我客户端是32 位,用得好好的。
SELECT * FROM v$version;
Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bi
PL/SQL Release 10.2.0.4.0 - Production
CORE        10.2.0.4.0        Production
TNS for IBM/AIX RISC System/6000: Version 10.2.0.4.0 - Productio
NLSRTL Version 10.2.0.4.0 - Production

beyondlee1

你没明白我的问题，
我指用32位perl程序脚本访问64位oracle数据库
不是指用PL/SQL之类的软件

laputa73

oracle的client自带32客户端的
DBD编译的时候会自动找到lib32目录
如果没找到，也可手动修改解决。
不过LZ是windows,windows的包没弄过。。。

hn_weicr

回复 3# beyondlee1

我的意思就是32位perl 访问64位oracle。你对“服务”的概念了解是浅了点。
这么说吧，服务对客户端，网络路由等是透明的。这好比一妓女对外提供“服务”，管你是黑人白人大人小孩，
照单全收，日了再说。
另外， Oracler 的 “PL/SQL”是开发语言，不是什么工具。Oracle有个第三方厂家开发的工具叫 pl/sql developer，
还有：有时候，如果客户端确实不好布署，我们可以换个思路，用 DBI的ProxyServer 作为代理,
在很多无法装oracle客户端的unix/linux主机上（要root权限，要重启主机)，通过代理也是个不错的选择。

hn_weicr

回复 4# laputa73

我常用的就是32位windows, oracle DBI.
其实windows的perl更容易部署，装好一台，把整的目录copy至另一台主机上就可以了。 activeperl安装模块更容易。

beyondlee1

我现在就是用perl写的程序访问oracle，
安装的64的activeperl可以正常访问和编译，
但换在32位windows，如xp下，就出现上述错误。

能否说一下简单步骤，如何解决？
注：64位和32位perl安装的模块是一样的。

hn_weicr

xp下就应该下载32位的activeperl。至于DBI等模块，应该用ppm（装好activeperl后，在CMD 下敲ppm就出来）来安装。要学好perl最需要的是不断的思索与折腾。

通过dbi proxyserver来实现也很简单。
./dbiproxy --localport 3333 --mode fork --debug --logfile /dev/tty
Wed Dec 14 22:31:46 2016 debug, Server starting in operation mode fork
Wed Dec 14 22:31:46 2016 notice, Server starting
Wed Dec 14 22:31:56 2016 debug, Connection from 13.71.2.88, port 44020
Wed Dec 14 22:31:56 2016 debug, Child clone: DBI::ProxyServer=HASH(0x3006ba48)

Wed Dec 14 22:31:56 2016 debug, New child starting (DBI::ProxyServer=HASH(0x3006ba48)).
Wed Dec 14 22:31:56 2016 debug, Accepting client from 133.71.24.88, port 44020
Wed Dec 14 22:31:56 2016 debug, Client logs in: Application dbi:Oracle:crmdb1, version 0.2004, user ai_sel
Wed Dec 14 22:31:56 2016 debug, Connecting to dbi:Oracle:crmdb1 as ai_sel
Wed Dec 14 22:31:56 2016 debug, Accepting client
Wed Dec 14 22:31:56 2016 debug, Client executes method Version
Wed Dec 14 22:31:56 2016 debug, Client executes method CallMethod
Wed Dec 14 22:31:56 2016 debug, CallMethod: => DBI::ProxyServer::db=HASH(0x30439ce8),STORE,AutoCommit,1
Wed Dec 14 22:31:56 2016 debug, CallMethod: <= 1
Wed Dec 14 22:31:56 2016 debug, Client executes method CallMethod
Wed Dec 14 22:31:56 2016 debug, CallMethod: => DBI::ProxyServer::db=HASH(0x30439ce8),prepare, SELECT service_num ,subscription_id  FROM hiucrm1o.ucs_subscription WHERE ROWNUM<200,,ARRAY(0x3043a028),1
Wed Dec 14 22:31:56 2016 debug, CallMethod: <= DBI::ProxyServer::st=HASH(0x3043a208),2,0,ARRAY(0x3043a438),ARRAY(0x3043a488),0E0
Wed Dec 14 22:31:56 2016 debug, Client executes method CallMethod
Wed Dec 14 22:31:56 2016 debug, CallMethod: => DBI::ProxyServer::st=HASH(0x3043a208),fetch,20
Wed Dec 14 22:31:56 2016 debug, CallMethod: <= ARRAY(0x30439fc8),ARRAY(0x3043a0a8),ARRAY(0x3043a418),ARRAY(0x3043a538),ARRAY(0x3043a578),ARRAY(0x3043a588),ARRAY(0x3043a5c8),ARRAY(0x3043a608),ARRAY(0x3043a648),ARRAY(0x3043a688),ARRAY(0x3043a6c8),ARRAY(0x3043a708),ARRAY(0x3043a748),ARRAY(0x3043a788),ARRAY(0x3043a7c8),ARRAY(0x3043a808),ARRAY(0x3043a848),ARRAY(0x3043a888),ARRAY(0x3043a8c8),ARRAY(0x3043a908)


结果：

13198||5723
13016||576478
13016||576919
13016||56508
130008||80072
1303352||574390
13004630||80647
130162||565541
1309890||5643
13005001||80
130397||800

。。。。。。。。。。。。。。。。
。。。。。。。。。

测试草码(基本上就是仿模块内的测试代码）

$ vi b.pl
use strict;
use DBI;
$ENV{DBI_AUTOPROXY}='dbi:Proxy:hostname=133.2.2.5;port=3333';
my ($dbh,$sth);
my $user = 'ai_sel';
my $pass ='jbjbjbjb';
my $remote="dbi:Oracle:crmdb1";
$dbh = DBI->connect($remote, $user, $pass) ||die "connect did not work: $DBI::errstr";
my $sql = " SELECT service_num ,subscription_id
                  FROM hiucrm1o.ucs_subscription
                  WHERE ROWNUM<200";
printf $sql."\n";
$sth=$dbh->prepare($sql);
$sth->execute();
my @ora_cursors=();
while(@ora_cursors=$sth->fetchrow_array)
{
  print  $ora_cursors[0]."||".$ora_cursors[1]."\n";
｝
$sth->finish();
$dbh->disconnect();           

fender0107401

这个是可能的。

我之前有一次安装了32为的wamp，里面的php是32位的，然后没法调用本机的64位的postgresql里面的lib，所以就没法访问64位的postgresql数据库。。。

hn_weicr

回复 9# fender0107401
那我就不太清楚了。我的生产环境是AIX+64位oracle 机群，一般我写应用都先在windows7 （32位）下反复折腾（人笨）好再移至unix/linux上。
我个人本本上用的activeperl 是从官网下的，模块都是用ppm安装的，非常顺。
后来我试过，把整个perl_home tar出来，在windows32的机子上解tar 就行了。

小结一下：为了节省时间不折腾
                   32位的windows 就应装32位的oracle客户端，装32位的activeperl,然后用ppm装相关模块
                   64位的windows就应装64位的oracle客户端，装64位的activeperl,然后用ppm装相关模块。