Chinaunix

标题: 求助！！！ perl下如何实现连接WINDOW环境下 ORACLE 数据库 [打印本页]

作者: angling2005 时间: 2006-06-13 11:06
标题: 求助！！！ perl下如何实现连接WINDOW环境下 ORACLE 数据库
需要安装哪里包文件求正式实现过的大大们指点下

作者: ieting 时间: 2006-06-14 18:31
dbd
dbi-oracle

作者: lyrix_z 时间: 2006-06-15 18:27
包都装了..我也折腾了一天也没连到数据库!!汗...期待各位大侠指点!!
都报这个错...
郁闷了..
DBI connect('host=192.168.1.2;sid=yyrtest','ivruser',...) failed: ERROR OCINlsEn
vironmentVariableGet(OCI_NLS_CHARSET_ID) Check ORACLE_HOME and NLS settings etc.
at D:\workspace\DBI\GetuserInfo.pl line 22

[ 本帖最后由 lyrix_z 于 2006-6-15 18:40 编辑 ]

作者: ieting 时间: 2006-06-16 16:31
你的版本及設定可能有問題
我的方式是
$dbh = DBI->connect("DBI:Oracle:$oracle_env{'sid'}","$oracle_env{'username'}","$oracle_env{'password'}");
$sql = qq{
select c.tablespace_name,round(a.bytes/1048576) Megs_Alloc,round(b.bytes/1048576) Megs_Free,round((a.bytes-b.bytes)/1048576) Megs_Used
from (select tablespace_name,sum(a.bytes) bytes,min(a.bytes) minbytes,max(a.bytes) maxbytes
   from sys.dba_data_files a
   group by tablespace_name) a,(select a.tablespace_name,nvl(sum(b.bytes),0) bytes
   from sys.dba_data_files a,sys.dba_free_space b
   where a.tablespace_name = b.tablespace_name (+) and a.file_id = b.file_id (+)
   group by a.tablespace_name) b,sys.dba_tablespaces c,(select tablespace_name,count(distinct segment_name) num_segs,count(extent_id) num_exts
from sys.dba_extents
group by tablespace_name) d
where a.tablespace_name = b.tablespace_name(+) and a.tablespace_name = c.tablespace_name and a.tablespace_name = d.tablespace_name(+)
order by c.tablespace_name
};
eval{
$sth = $dbh->prepare( $sql );
$sth->execute();
$sth->bind_columns(\$GetTablespaceName,\$GetMegaAlloc,\$GetMegaFree,\$GetMegaUse);
while( $sth->fetch() ) {
push(@Tablespace_Temp,"$GetTablespaceName,$GetMegaUse,$GetMegaFree,$GetMegaAlloc\n");
}
$sth->finish();
$dbh->disconnect();
};

ppm> query dbd
Querying target 1 (ActivePerl 5.8.4.810)
  1. DBD-Oracle9 [1.16]
ppm> query dbi
Querying target 1 (ActivePerl 5.8.4.810)
  1. DBI [1.45]9i Client

還有你要check 你的 tnsnames.ora 有沒有設定對

[ 本帖最后由 ieting 于 2006-6-18 16:47 编辑 ]

作者: angling2005 时间: 2006-07-10 14:39
标题: 请问在不装ORACLE 的情况下是不是能够将 DBD-ORACLE9装上
请问在不装ORACLE 的情况下是不是能够将 DBD-ORACLE9装上

作者: angling2005 时间: 2006-07-10 14:40
标题: 我装时候它是提示找不到ORACLE环境变量的
我装时候它是提示找不到ORACLE环境变量的

作者: sanshi2 时间: 2007-09-19 14:33
$dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd);

DBI connect('host=192.168.0.6;sid=cssdb','confluence',...) failed: ERROR OCINlsEnvironmentVariableGet(OCI_NLS_CHARSET_ID) Check ORACLE_HOME and NLS settings etc. at C:\temp\perltest\or.pl line 11

等待解决方案

作者: Osment 时间: 2007-09-19 16:47
$dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd);

直接改成 $dbh = DBI->connect("dbi:Oracle

sid;$host", $user, $passwd);

作者: hmlijg 时间: 2014-06-27 15:11
你后来怎么解决的？

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)