要连接Oracle数据库，你需要使用Perl的DBI模块和DBD::Oracle驱动程序。
首先，你需要安装DBI和DBD::Oracle模块。你可以使用CPAN来安装它们。打开终端，运行以下命令来安装DBI和DBD::Oracle模块：
cpan DBI
cpan DBD::Oracle
安装完成后，你可以使用以下代码连接Oracle数据库：
use DBI;
my $database = 'database_name'; # 替换为你的数据库名称
my $host = 'host_name'; # 替换为你的主机名
my $port = 'port_number'; # 替换为Oracle数据库的端口号
my $username = 'your_username'; # 替换为你的用户名
my $password = 'your_password'; # 替换为你的密码
# 连接到Oracle数据库
my $dbh = DBI->connect("dbi:Oracle:host=$host;port=$port;sid=$database", $username, $password)
or die "无法连接到数据库: " . DBI->errstr;
# 执行SQL查询
my $stmt = $dbh->prepare("SELECT * FROM table_name");
$stmt->execute();
# 处理查询结果
while (my @row = $stmt->fetchrow_array) {
# 处理每一行数据
# 例如，打印第一个列的值
print $row[0] . "\n";
}
# 断开与数据库的连接
$dbh->disconnect();
请将 database_name、host_name、port_number、your_username 和 your_password 替换为你的实际数据库信息。然后，你可以执行任何SQL查询，并处理查询结果。
这只是一个简单的示例，你还可以执行其他操作，如插入、更新和删除数据。有关更多信息，请查阅Perl的DBI和DBD::Oracle文档。
