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";

//测试通过。


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