communication base de données via Perl

**debutantperl** · 18/07/2012, 10h33

Bonjour,
Je suis débutant en Perl et je souhaite communiquer avec ma base de données.
Pour vérifier si j'arrive à communiquer avec ma base de données j'ai utilisé le code suivant :

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
21
22
23
24
#!/usr/bin/perl 
use warnings; 
use strict; 
use DBI;                    
my $bd = 'database'; 
my $serveur = 'localhost';    
my $identifiant = 'root';   
my $motdepasse  = '';       
 
# Connexion à la base de données MySQL 
my $dbh = DBI->connect( "dbi:mysql:dbname=$bd;host=$serveur;", $identifiant, $motdepasse ) 
  or die "Connexion impossible à la base de données $bd !"; 
 
my $requete = "SELECT * FROM table ";
my $sth = $dbh->prepare($requete);
 
$sth->execute();
 
while(my @row = $sth->fetchrow_array){
print $row['0']." <br>";
}
 
$sth -> finish;
$dbh -> disconnect;

Cependant j'ai le message d'erreur suivant quand je compile :

DBI connect('dbname=database;host=localhost;','root',...) failed: Access denied for user 'root'@'localhost' (using password: NO) at dbi.pm line 20
Connexion impossible Ã* la base de donnÃ©es database ! at dbi.pm line 20.

PS: j'utilise vnc viewer pour me connecter à une machine distante (fedora) et ma base de données se trouve dans mon pc windows sur lequel j'ai installé le vncviewer.

Est ce un problème avec mon code ou avec l'emplacement de ma base de données ?
Avez vous des solutions à me proposer ?

Merci de votre aide