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
这是什么原因勒 环境变量都是设置好的