perl连接oracle并打印sql结果

admin

在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();