我对 Perl 完全陌生。我有一个 Perl 脚本,它检查与容器中运行的 oracle 数据库的连接。这是我的代码
#!/usr/bin/perl
use DBI;
$\="\n";
print "Connecting to DB..";
my $dbh = DBI->connect('dbi:Oracle:host=oracle;sid=ORCLCDB;port=1521', 'books_admin/MyPassword', '',{ RaiseError => 1, AutoCommit => 0 })or die print ("could not connect! $DBI::errstr \n");
使用这个脚本,我可以连接 oracle database 。但是这个脚本没有向我的终端提供任何状态输出。如何检查脚本是否连接到数据库?我知道 bash 有 $?用于检查先前执行的 cmd 的状态。我们在 Perl 中有类似的东西吗?
这是我想要的输出“成功连接到 Oracle-db”,当连接正常时,当脚本无法连接到数据库时,状态为失败
注意:此代码向我的终端提供错误状态。我的 Perl 版本是 v5.16.3