爲什麼我的Perl的DBI->連接的使用默默地失敗了？

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服務器實際上是不運行），但以供將來參考，我想看到的情況下，真正的錯誤，我引起AUTH失敗爲例。

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

您使用'或'是語法錯誤。列出的代碼不應該運行。

你想：

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

注意or die...是原來的說法，並不是一個新的語句的一部分。

Answer 5

嘗試，包括$的價值！在你的死訊中。

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

請參閱$! in perldoc perlvar。

Answer 6

這裏是我的rjh's answer使用。我想我更喜歡這個在die的方法，但目前還不能確定......

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