Discussion :

[fabienr37]

Bonjour à tous,

Je me permets une question : J'ai besoin de connecter un pl à une base mysql.

Mon code :

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
#!/usr/bin/perl -w
 
   #- Connecteurs et package
   use DBI;
   use CGI;
   use baseSQL;
   use baseSQLdtw;
   use File::Copy;
   use strict;
 
      my $dbdtw_serveur='192.168.47.226';
      my $dbdtw_user='user';
      my $dbdtw_passwd=passwd;
      my $dbdtw_base='dtw';
 
      my $dsndtw = 'DBI:mysql:database=$dbdtw_base;hosts=$dbdtw_serveur';
      my $dbhdtw = DBI->connect ($dsndtw, $dbdtw_user, $dbdtw_passwd) or die "Err connexion";

Ca ne marche pas :

Code :

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

1
2
3
DBI connect('database=$dbdtw_base;hosts=$dbdtw_serveur','dbuser_dev',...) failed: Access 
denied for user 'dbuser_dev'@'localhost' (using password: YES) at dtw.pl line 24
Err connexion at dtw.pl line 24.

Mais si je me met en console, et que je tape :

Code :

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

mysql -h192.168.47.226 -uuser -ppasswd

Ca marche...

Quelqun aurait une idée ?
Si oui, je prend !

[fabienr37]

J'oubliais : Si je me connecte sur la base locale, pas de soucis, tout va bien.
Donc, mon DBI me semble ok.

[djibril]

Code :

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

my $dsndtw = "DBI:mysql:database=$dbdtw_base;host=$dbdtw_serveur";

[fabienr37]

Merci Djibril.
Les simples cotes, et un "s" en trop... Stupide de ma part.

[djibril]

Petit tag résolu à ne pas oublier !