Perl Oracle环境变量

shaunsyb

服务器：CentOS 5.8

在一台服务器上 2 个用户ora10g,ora11g 分别安装了oracle 10g 和 11g，
在安装DBD-Oracle 模块的时候，获取的是 ora10g 的环境变量，这时候 ora11g 通过Perl 连接Oracle 的时候报如下错误

DBI connect('','/',...) failed: ERROR OCIEnvNlsCreate. Check ORACLE_HOME (Linux) env var  or PATH (Windows) and or NLS settings, permissions, etc. at ./alertcheck.pl line 37
ERROR OCIEnvNlsCreate. Check ORACLE_HOME (Linux) env var  or PATH (Windows) and or NLS settings, permissions, etc.

而 卸载Oracle模块  重新安装获取ora11g 用户环境变量的时候，ora10g 用户报同样错误，

但是我另一台 服务器上 也是2个用户都分别安装oracle 11g ，2个用户perl 连接 oracle 都没有问题，这说明2个家目录不一样是可以同时使用perl脚本的。。。

请问下，这要怎么解决2个用户才可以都执行perl 脚本？

104359176

我感觉是权限的问题，每个版本的 ora10g/11g 都自带了 Perl 的发行版，但版本不同，系统也自带了 Perl 的发行版，也许是环境变量顺序的问题，先找 centos 自带 root 的 Perl 的环境变量，然后再找 user 的 ora10g/11g 的环境变量，就会出现调用权限的问题。

laputa73

在连接oracle的时候，自己用%ENV设置相关环境变量。
perl作为客户端，用10g/11g都没有什么关系。都可以连1g/11g的服务端。
关键就是这两个
        $ENV{ORACLE_HOME} = $orahome;
        $ENV{NLS_LANG} = "SIMPLIFIED CHINESE_CHINA.ZHS16GBK";

shaunsyb

回复 3# laputa73

这个问题我是想过了的，
我自己在脚本中也直接指定了相关的Oracle变量，然后也通过print $ENV{XX}  打印出来看过了，都没有问题，
区别就是在 安装dbd—oracle 模块的时候 获取的是哪个用户的变量，
因为另一台机器2个11g 的用户都没问题，所以我想的是不是 有哪个模块文件 在安装的获取了 库文件之类  的路径，所以相同版本的 oracle 就没问题，不同版本的oracle就出问题了
   

shaunsyb

use strict;
use warnings;
use DBI;
use DBD::Oracle;
use File::Copy;


open(NEWENV, "source ~/.bash_profile && env|");

while (<NEWENV>){
          if (/(\w+)=(.*)/){

                $ENV{$1}="$2";
           }
    }
close NEWENV;

print $ENV{ORACLE_HOME}."\n";
print $ENV{NLS_LANG}."\n";


my $dbh = DBI->connect('dbi:Oracle:','/','',{ora_session_mode =>2}) or die( $DBI::errstr . "\n" );



这是我配置的脚本，环境变量我觉得是没有问题的，

laputa73

看下$LD_LIBRARY_PATH
不同版本的oracle确实会冲突

shaunsyb

回复 6# laputa73

也没问题的

shaunsyb

临时解决了下，又安装了一个DBD-ORACLE 模块包，安装在自定义的目录下。。。
让其中一个用户先读取这个自定义目录

yeahnoob

这种情况用perlbrew最合适啦。
装起来也放便，各个用户用各自的perl和module互不干扰。