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;
//斷開連接