Perl DBI::Oracle 出现问题的解决方法

环境：winXP  ActivePerl 5.8.8 Build 819  Oracle9

今天想用perl连接公司的一台Oracle数据库，但是perl要安装DBD::Oracle模块：

ppm install DBD-ORACLE

本以为装完就OK，可是运行如下perl程序出现问题：
一下是代码：

use DBI; $dbname="XXTDB_11"; $user="xxt_mt"; $passwd="mt#456"; $dbh=""; #连接数据库 $dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to database ". DBI-errstr; #执行sql语句 $sth=$dbh->prepare("Select * from xxt_prod.kiosk t "); $sth->execute; #读取记录数据 while (@recs=$sth->fetchrow_array) { print $recs[0].":".$recs[1].":".$recs[2]."\n"; } $dbh->disconnect;

错误提示：

error "ORA-12705: Cannot access NLS data files or invalid environment specified"

最后在这里找到了答案：http://blog.xuite.net/yukai/klovek/7946037

   如果在同一台电脑上已经先安装了标准的 Oracle Database Client，就会出现这个错误信息，解決方法：打开注册表 \HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE 內找出 NLS_LANG ，这个键值现在应该是 NA，也是导致 ORA-12705 错误的原因，因此將 NLS_LANG 的值改为AMERICAN_AMERICA.ZHS16GBK 就可以正常使用了。

C变参：【上一篇】
检索CPP文件与table的关系：【下一篇】