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 !