Pas de connexion à ma db

**PadawanInPerl** · 20/07/2012, 15h09

Bonjour,

Je débute dans le lien perl et mysql, j'ai une erreur avec un code que j'ai récupéré dans les post :

install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains:
C:\DOCUME~1\XXX\Bureau\SCRIPT~2\ C:/Perl/site/lib C:/Perl/lib .) at (eval 5) l
ine 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: CSV, DBM, ExampleP, File, Gofer, ODBC, Oracle, Proxy, SQLite,
Sponge.
at C:\DOCUME~1\XXX\Bureau\SCRIPT~2\IMPORT~1.PL line 17

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
25
26
27
28
29
30
31
#!/usr/local/bin/perl
 
use warnings;
use strict;
 
use DBI;                    # Charger le module DBI
use vars qw/ $VERSION /;    # Version du script
$VERSION = '1.0';
 
# Paramètres de connexion à la base de données
my $bd      = 'mm';
my $serveur = 'localhost';
my $id      = 'root';
my $mp      = 'mam';
 
# Connexion à la base de données MySQL
my $dbh = DBI->connect( "dbi:mysql:dbname=$bd;host=$serveur;", $id, $mp )
  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;