Perl连接Oracle数据库

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > 编程语言 > 综合其它

Perl连接Oracle数据库

作者:佚名时间:2007-09-14 17:19 出处:beta 责编:月夜寒箫

摘要：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;

//断开连接

关闭本页