为什么我使用 Perl 的 DBI->connect 会默默失败？

Question

为什么这段代码会默默地失败？我怎样才能让它准确地显示 SQL 错误是什么？

$dbh=DBI->connect($db_name,$db_user,$db_pass);

我将代码修改为如下所示：

$dbh=DBI->connect($db_name,$db_user,$db_pass)
    or die("could not connect to db: $db_name");

它不会允许我使用未分配的 $dbh ，而是会按预期失败，但它并没有告诉我失败的确切原因。据我所知， $db_name 等的值都设置为有效值。

我知道真正的错误（MySQL 服务器实际上没有运行），但为了将来的参考，我想看到真正的错误，以防我导致身份验证失败。

Answer 1

您不明白为什么 connect 失败，因为您没有执行 DBI 的操作 告诉你如何做。错误将出现在 $DBI::errstr 变量中：

$dbh = DBI->connect($data_source, $username, $password)
     or die $DBI::errstr;

确保您阅读了要使用的任何函数或方法的文档。 :)

Answer 2

啊哈，错误存储在 $DBI::errstr 中，因此我可以像这样修改我的代码：

$dbh=DBI->connect($db_name,$db_user,$db_pass)
    or die("could not connect to db: $DBI::errstr");

根据文档，它在设计上会默默地失败。

Answer 3

通过 RaiseError => 1 作为连接时的选项，那么您的脚本将因错误而终止。我的 Perl 商店有一个标准配置：

{
  RaiseError => 1,
  PrintError => 0,
  AutoCommit => 1,
  mysql_auto_reconnect => 1,
}

Answer 4

这是我对 rjh 的答案。我想我比 die 方法更喜欢这种方法，但还不确定......

$dbh = DBI->connect($data_source, $username, $password, { RaiseError => 1 });

Answer 5

您使用“或”是语法错误。列出的代码根本不应该运行。

您需要：

$dbh=DBI->connect($db_name,$db_user,$db_pass) 
    or die("could not connect to db: $db_name");

请注意，or die... 是原始语句的一部分，而不是新语句。

Answer 6

尝试包含 $ 的值！在你的死亡消息中。

$dbh = DBI->connect($db_name, $db_user, $db_pass)
  or die("could not connect to db ($db_name): $!");

请参阅$！在 perldoc perlvar 中。