perl连接oracle并打印sql结果
在Perl中连接Oracle数据库并执行查询操作，你可以使用DBI（数据库接口）模块和DBD::Oracle（Oracle数据库驱动）模块。首先，请确保已经安装了这两个模块。下面是 Perl 代码示例：perl
use strict;
use warnings;
use DBI;
my $dbhost = "localhost"; # 数据库主机名
my $dbname = "your_db_name";# 数据库名称
my $dbuser = "your_username"; # 数据库用户名
my $dbpass = "your_password"; # 数据库密码
# 连接到 Oracle 数据库
my $dbh = DBI->connect("dbi:Oracle:host=$dbhost;sid=$dbname", $dbuser, $dbpass, { RaiseError => 1, AutoCommit => 0 })
or die "无法连接到数据库: " . DBI->errstr;
# 执行查询语句
my $sql = "SELECT * FROM your_table";
my $sth = $dbh->prepare($sql);
$sth->execute() or die "无法执行查询: " . $sth->errstr;
# 输出记录
while (my $row = $sth->fetchrow_arrayref) {
print join(", ", @$row) . "\n";
}
# 关闭连接
$sth->finish();
$dbh->disconnect();
页:
[1]