oracle - 如何使用 perl 脚本检查与 oracle db 12c 的连接

Question

我有一个在容器中运行的 oracle db 12c。
我正在尝试使用以下代码使用在另一个容器中运行的 perl 脚本检查与 oracle db 的连接

#!/usr/bin/perl
use DBI;

$\="\n";

print "Connecting to DB..";


my $dbh = DBI->connect('dbi:Oracle:ORCLCDB',  'books_admin', 'MyPassword') or
          die "Cannot connect to DB => " . DBI->errstr;

其中 books_admin 是我的用户名，MyPassword 是我的密码 ORCLLCDB 是我的数据库名称
但是当我运行这个脚本时，我得到了以下错误

"ORA-12154: TNS:could not resolve the connect identifier specifiedenter"

这是我在 perl 容器中的 tnsname.ora 文件位置。

ORAC =
 (DESCRIPTION =
(ADDRESS = (PROTOCOL = TCP)(HOST = oracle)(PORT = 1522))
(CONNECT_DATA =
  (SERVER = DEDICATED)
  (SERVICE_NAME = ORCLCDB)
)
 )

LISTENER_ORAC =
(ADDRESS = (PROTOCOL = TCP)(HOST = oracle)(PORT = 1522))

Answer 1

引用。 doc : "如果数据库是在 TNSNAMES.ORA 文件中定义的，您可以使用文件中给出的服务名称。"

例如:$dbh = DBI->connect('dbi:Oracle:host=foobar;sid=DB;port=1521', 'scott/tiger', '');
服务标识符是 ORAC引用您的tnsnames.ora入口。