Bonjour,
J'utilise PERL 5.10.1 et j'ai également ActiveState Perl Dev Kit 8.2.1 Build 292072.
J'ai bien lu le manuel http://djibril.developpez.com/tutori...on-modules/#L2 de Djibril et les différents sujets du forum, mais il n'y a pas de réponse à ma question
Je souhaite utiliser une base SQL (j'utilise phpMyAdmin) dans un pg PERL.
Pour cela, si j'ai bien compris, il faut que j'installe DBD::mySQl, mais voilà: je n'y arrive pas (ni via le ppm, ni via le ppm-shell).
Je ne peux pas utiliser de connexion internet, j'ai donc rapatrier sur mon DD local http://search.cpan.org/dist/DBD-mysq...l-4.018.tar.gz.
J'ai également récupérer un fichier DBD-mysql.ppd :
Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 <?xml version="1.0" encoding="UTF-8"?> <SOFTPKG NAME="DBD-mysql" VERSION="4,005,0,0"> <TITLE>DBD-mysql</TITLE> <ABSTRACT>A MySQL driver for the Perl5 Database Interface (DBI)</ABSTRACT> <AUTHOR>Rudy Lippan <rlippan@remotelinux.com></AUTHOR> <IMPLEMENTATION> <OS NAME="MSWin32" /> <ARCHITECTURE NAME="MSWin32-x86-multi-thread-5.8" /> <CODEBASE HREF="DBD-mysql-4.018.tar.gz" /> <PROVIDE NAME="Bundle::DBD::mysql" VERSION="4.004" /> <PROVIDE NAME="DBD::mysql" VERSION="4.005" /> <PROVIDE NAME="DBD::mysql::GetInfo" /> </IMPLEMENTATION> </SOFTPKG>
L'erreur est: "ppm install failed: The PPD does not provide code to install for this platform"
L'erreur que je rencontre lorsque je compile ce code:
L'erreur pour mon code: "install_driver(mysql) failed: Can't locate DBD/mysql.pm ... Perhaps the DB::mysql perl module hasn't been fully installed,...Available drivers: CSV, DBM, ExampleP, ODBC..."
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 use DBI(); # Charger le module DBI # Parametres de connexion à la base de données my $BaseDeDonnees = "..."; my $NomHote = "..."; # Il est possible de mettre une adresse IP my $login = "..."; # login my $MotDePass = "..."; # Nous n'avons pas de mot de pass # Connection à la base de données mysql my $dbh = DBI->connect( "dbi:mysql:dbname=$BaseDeDonnees;host=$NomHote;", $login, $MotDePass ) or die "\n\nConnection impossible à la base de donnees $BaseDeDonnees !"; print $dbh;
Partager