Pourquoi mon utilisation de DBI-> connect Perl échoue-t-elle silencieusement?

Question

Pourquoi ce code échoue-t-il en mode silencieux? Comment puis-je l'obtenir pour me montrer exactement ce qu'est l'erreur SQL?

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

J'ai modifié le code pour ressembler à ceci:

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

qui, au lieu de me permettre d'utiliser $dbh sans affectation, il échouera comme prévu, mais il ne me dit pas exactement pourquoi il est défaillant. Les valeurs de $db_name etc, sont toutes définies avec des valeurs valides autant que je peux voir.

Je connais la vraie erreur (le serveur MySQL n'est pas en cours d'exécution) mais pour référence future, je voudrais voir la vraie erreur dans le cas où je provoque un échec d'authentification par exemple.

Answer 1

Vous ne voyez pas pourquoi le connect échoue parce que vous ne faites pas ce que le DBI vous montre à faire. L'erreur sera dans la variable $DBI::errstr:

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

Assurez-vous de lire la documentation pour toutes les fonctions ou les méthodes que vous souhaitez utiliser. :)

Answer 2

Aha, l'erreur est stockée dans $DBI::errstr, donc je peux modifier mon code comme ceci:

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

Selon la documentation, il échoue en silence par la conception.

Answer 3

Passez RaiseError => 1 en option lors de la connexion, puis votre script mourra en cas d'erreur. Mon magasin Perl a une configuration standard de:

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

Answer 4

Votre utilisation de 'ou' est une erreur de syntaxe. Le code répertorié ne devrait pas fonctionner du tout.

Vous voulez:

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

Notez que or die... fait partie de la déclaration d'origine, et non une nouvelle déclaration.

Answer 5

Essayez d'inclure la valeur de $! dans votre message de die.

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

Voir $! in perldoc perlvar.

Answer 6

Voici mon utilisation de rjh's answer. Je pense que je préfère cette approche sur l'die, mais pas encore sûr ...

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