使用perl连接oracle数据库
use DBI;use strict;
my $host=qq/127.0.0.1/;
my $sid=qq/orcl/;
my $user=qq/scott/;
my $password=qq/tiger/;
my $dbh=DBI->connect("DBI:Oracle:Host=$host;sid=$sid",$user,$password) or die "Can't connect to databse. DBI->errstr"; #注意DBI:Oracle:Host=$host;sid=$sid中Oracle大小写以及分隔符号
my $sql="select * from dept";
my $sth=$dbh->prepare($sql) or die "Can't prepare statement. DBI->errstr";
$sth->execute();
while (my @row=$sth->fetchrow_array){
print $row,"\t",$row,"\t",$row, "\n";
}
$sth->finish();
$dbh->disconnect();
页:
[1]