perl - 为什么我使用 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未分配的，它会按预期失败，但它并没有告诉我它失败的确切原因。据我所知，etc 的值$db_name都设置为有效值。

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

score 8 · Accepted Answer

你没有看到connect失败的原因，因为你没有按照DBI显示的去做。错误将在$DBI::errstr变量中：

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

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

score 2 · Accepted Answer

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

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

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

score 1 · Accepted Answer

连接时将 RaiseError => 1 作为选项传递，然后您的脚本将因错误而死。我的 Perl 商店有一个标准配置：

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

score 1 · Accepted Answer

这是我对rjh's answer的用法。我想我更喜欢这种die方法，但还不确定......

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

score 0 · Accepted Answer

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

你要：

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

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

score 0 · Accepted Answer

尝试包括 $ 的价值！在你的死亡信息中。

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

6 回答 6