Perl连接Oracle数据库

作者: beta 出处:http://beta.xmu.cn/　 (  ) 砖  (  ) 好  评论 ( ) 条 　进入论坛

更新时间：2005-09-09 11:48
关 键 词：Oracle  数据库
阅读提示：本文介绍如何用Perl连接Oracle数据库的一段程序。

上次讲了在linux下安装Oracle，安装完之后可以用netac来配置远程数据库的本地命名。
要在perl下面连接oracle数据库，首先必须安装DBI和DBD for Oracle。
下面是一段perl程序
#!/usr/bin/perl
use DBI;
$dbname="oralce";
$user="user";
$passwd="password";
$dbh="";
$dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to
database ". DBI-errstr;
//连接数据库
$sth=$dbh->prepare("select * from tDevice");
$sth->execute;
//执行sql语句
while (@recs=$sth->fetchrow_array) {
print $recs[0].":".$recs[1].":".$recs[2]."\n";
//读取记录数据
}
$dbh->disconnect;
//断开连接

滚动新闻　术语词典　问题悬赏

我也说两句