从 Perl 连接到 Oracle

Question

我正在尝试使用 Perl 连接到 Oracle。

我正在尝试从安装了 Perl 的 Windows XP 计算机进行连接。我还下载了 Oracle SQL Developer 和 Oracle Instant Client。我可以使用 TNS 连接类型使用 Oracle SQL Developer 连接到 Oracle DB。

我使用以下 Perl。

use DBI;
$db=DBI->connect( "dbi:Oracle", "username", "password" ) or die "Can't connect $DBI::errstr\n";

我收到以下错误消息。

DBI 连接（''，'用户名'，...）失败：错误
OCINlsEnvironmentVariableGet(OCI_NLS_CHARSET_ID) 在 oracle2.pl 第 3 行检查 NLS 设置等
无法连接到数据库错误 OCINlsEnvironmentVariableGet(OCI_NLS_CHARSET_ID) 检查 NLS 设置等。

由于 Oracle Instant Client 没有安装程序，我是否需要对其执行任何操作？ Perl 中还需要配置什么吗？

是否需要在 Perl 开头设置任何变量才能链接到 SQL Developer 或 Instant Client？

Answer 1

我使用了不同的方法将 Perl 连接到 Oracle DB。我使用 SQLPlus 而不是 DBI。这是来自 Oracle 的命令行实用程序，可以从 Perl 调用。下面是我的代码示例。 test.sql 文件可以包含一个或多个查询，并且必须以 exit 结束。

my $connect_string = 'username/password@server'; # connection to the DB
my $file = 'test.sql'; # location of SQL file. The file must end with "exit"

my $sqlcmd = "sqlplus -S $connect_string \@$file"; # sqlcommand
system $sqlcmd; # executes command

Answer 2

有了该错误消息和您的代码段，我首先检查它是否有助于在 $db=DBI->connect(..< /code> （如果需要，请谷歌一些示例）。

如果这没有帮助，我会检查环境变量 OCI_NLS_CHARSET_ID 的值。

Answer 3

我在 cygwin 和最后遇到了同样的问题这是可以解决的。

就我而言，事实证明（经过大量调查和阅读）问题的根源在于版本的混合。服务器是 11.2，同时我使用 12.1 Instant Client 包为 DBD::Oracle 构建 Oracle.dll。所以我下载了11.2版本（来自Oracle）和此错误消息就这样消失了！

我已阅读故障排除手册，但似乎需要 3 个包：Basic、SDK 和 sqlplus（后者由构建过程用来确定服务器版本）。

在构建之前必须设置一些bash变量：

export ORACLE_HOME=/cygdrive/c/install/instantclient_11_2
PATH+=:"$ORACLE_HOME"
export TNS_ADMIN="$HOME"

稍后需要找到Oracle.dll引用的oci.dll。当 Windows 查找 PATH 来查找 DLL 而不是 LD_LIBRARY_PATH 时，它会添加到 PATH 中。文件 tnsnames.ora 可以位于 $TNS_ADMINdir 中，或者在 /var/opt/oracle 或 /etc （或其他一些地方）。可以通过DBI->data_sources('Oracle')列出定义的服务名称。

瞧！我希望这能有所帮助！

Answer 4

我想要连接到在 Docker 容器中运行的 Oracle XE（端口 1521 和 5500 映射到其等效主机）并查询 Oracle 示例数据库。这对我有用。

#!/usr/bin/perl

use DBI;

# connect to Oracle...
$dbh = DBI->connect("dbi:Oracle:localhost/xepdb1","ot","Orcl1234");

# prepare and execute the SQL statement
$sth = $dbh->prepare("SELECT first_name, last_name FROM employees");
$sth->execute;

# retrieve the results
printf "%-30s %-30s\n", "First Name", "Last Name";
while(  my $ref = $sth->fetchrow_hashref() ) {
    printf "%-30s %-30s\n", $ref->{'FIRST_NAME'}, $ref->{'LAST_NAME'};
}
exit;