Discussion :

[www.rubis]

bonjour

j'ai fais un script qui marche bien
mais pour q'il soit un peut plus propre je ne voudrais pas avois des message
d'erreur

DBI connect('host=localhost;','root',...) failed: Access denied for user 'root'@'localhost' (using password: YES) at ./test_import_mysql line 230
Connection impossible à la base de donnees

voici le bout de code que j'utilise
mais si le mot de pass n'est pas bon ou autre commentfaire pour avoir
que Connection impossible à la base de donnees sans l'autre message d'erreur avant

# Connection à la base de données mysql
my $dbh = DBI->connect( "dbi:mysql:host=$NomHote;",$login, $MotDePass )
or die "Connection impossible à la base de donnees $BaseDeDonnees \n ";

Merci d'avance pour vos reponse

Cordialement

[Beniou]

Bonjour

Tu peux changer certaines options lors de la connexion à la base comme "PrintError" et "RaiseError" pour qu"'il n'affiche pas les messages d'erreurs.
Ensuite à toi de te créer une fonction erreur suivant les cas.

Exemple (pas testé) avec une connexion bidon sur une base postgres, à toi d'adapter suivant ta config

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use strict;
use warnings;
use DBI;
 
my $database = "test";
my $host = "localhost";
my $user = "toto";
my $password ="titi";
 
my $dbh = DBI->connect("DBI:Pg:dbname=$database;host=$host",
		$user,
		$password,
		{'RaiseError' => 0,
		 'PrintError' => 0}) or &erreur_connexion();
 
 
sub error_connexion{
  print "Erreur connexion\n";
}

Ensuitre à toi de gérer les différents types d'erreurs et de faire les deconnexions si jamais.

[Dimitry.e]

Si tu ne veux supprimer que les messages d'erreurs de DBI, tu peux utiliser l'option PrintError.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $dbh = DBI->connect( "dbi:mysql:host=$NomHote;",$login, $MotDePass ,{'PrintError'=>0});

[www.rubis]

Merci pour vos reponse

je ne connaissais pas ,{'PrintError'=>0}

mon probleme est resolue

je vais pouvoir continuer a faire mon script

bien cordialement

[Philou67430]

Typiquement, l'idéal serait de laisser le module lever une exception, et la trapper dans ton programme appelant, comme expliqué dans la documentation de l'option RaiseError :

Typically "RaiseError" is used in conjunction with "eval { ... }" to
catch the exception that's been thrown and followed by an "if ($@) {
... }" block to handle the caught exception. For example:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
         eval {
           ...
           $sth->execute();
           ...
         };
         if ($@) {
           # $sth->err and $DBI::err will be true if error was from DBI
           warn $@; # print the error
           ... # do whatever you need to deal with the error
         }

Dans ce contexte, comme expliqué dans la documentation, il serait judicieux de mettre PrintError à 0, et RaiseError à 1.

Ainsi, tu pourras à la fois afficher ton propre texte en cas de défaut, mais aussi, tu disposeras dans $@ du message d'erreur que la méthode a généré.