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");

unassigned の使用を許可する代わりに、$dbh期待どおりに失敗しますが、失敗する理由を正確に教えてくれません。などの値は$db_name、私が見る限り、すべて有効な値で設定されています。

実際のエラー (MySQL サーバーは実際には実行されていません) は知っていますが、今後の参考のために、たとえば認証エラーを引き起こしている場合に備えて、実際のエラーを確認したいと思います。

score 8 · Accepted Answer

DBIが示すことを実行していないため、connect失敗する理由がわかりません。エラーは変数にあります：$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の答えの私の使い方です。アプローチよりもこれを好むと思います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): $!");

$を参照してください。perldoc perlvar で。

score 0 · Accepted Answer

「または」の使用は構文エラーです。リストされたコードはまったく実行されません。

あなたがしたい：

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

or die...新しいステートメントではなく、元のステートメントの一部であることに注意してください。

6 に答える 6