Perl 连 Oracle 的问题
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;//断开连接