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;
si quelqu'un pouvait m'aider ça serait
Partager