perl连接oracle测试

说明：

上一章已安装后oracle 客户端，并安装好perl 的DBI

现安装DBD。

1.解压DBD文件
  tar zxf DBD-Oracle-1.24b.tar.gz
  cd DBD-Oracle-1.24

2.perl DBD-Oracle-1.24    //这样会有报错，缺少oracle.mk ,....*.mk

  所为，要修改为：
  perl Makefile.PL -m /opt/oracle/sdk/demo/demo.mk

  //demo.mk   在客户端安装目录下面找出来
   find . -type f -name *mk* -print

  最后运行以下命令：
   make
   make install
//尽管也有报错，不用管它，继续。。。。
   make: *** [blib/arch/auto/DBD/Oracle/Oracle.so] 错误 1


3.开始测试。

  #!/usr/bin/perl

use DBI;
$dbname="bossdata";
$user="system";
$passwd="javama";
$dbh="";
$dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to database ";
$sth=$dbh->prepare("select * from user_tables");
$sth->execute;
while (@recs=$sth->fetchrow_array) {
print $recs[0].":".$recs[1]."\n";
}
$dbh->disconnect;
print "hello \n";

//测试通过。



如果还有其它问题，请提问。





  

评论

1 楼 光头小张 2012-07-12  

DBI connect('host=172.30.35.5;port=1521;sid=sctestdb','rms',...) failed: ERROR OCIEnvNlsCreate. Check ORACLE_HOME (Linux) env var  or PATH (Windows) and or NLS settings, permissions, etc. at xls_export_advance.pl line 7
这是什么原因勒  环境变量都是设置好的