【IT168 技术文档】上次讲了在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;
　　//断开连接