Discussion :

[sabbish]

Salut,

je suis en train d'essayer de me connecter à ma base MySql (sur un dédié OVH si ça peut jouer) dans le but d'y insérer des données.
Après de très nombreux essais, ça ne marche toujours pas.
J'ai l'impression que la connection ne se fait pas mais je n'ai aucun message d'erreur.

Voilà 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
18
19
20
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
 
use DBI;
 
my $base_nom = "mabase"; 
my $base_serveur = "localhost"; 
my $base_user = "root"; 
my $base_password = "mot_de_passe_du_root"; 
my $base_dsn = "DBI:mysql:database=$base_nom;host=$base_serveur";
 
my $numid = 1;
 
my $dbh = DBI->connect($base_dsn, $base_user, $base_password, {'RaiseError' => 1} ) or die "DBI->connect ............... not ok: ", $DBI::errstr;  
my $query  = "update connection set image='nouvelleimage' where id=$numid;";
 
my $sth  = $dbh->do($query); 
#$sth = $dbh->do($query);
 
$dbh->disconnect;

La librairie DBI était installée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

find /usr/lib/perl5/ -name DBI.pm

qui me renvoit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Bundle/DBI.pm
/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBI.pm
[root@ns20285 DBD-mysql-2.9008]#

J'ai installé la librairie DBD-mysql.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

find /usr/lib/perl5/ -name mysql.pm

qui me renvoit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
/usr/lib/perl5/DBD-mysql-2.9008/lib/DBD/mysql.pm
/usr/lib/perl5/DBD-mysql-2.9008/lib/Bundle/DBD/mysql.pm
/usr/lib/perl5/DBD-mysql-2.9008/blib/lib/DBD/mysql.pm
/usr/lib/perl5/DBD-mysql-2.9008/blib/lib/Bundle/DBD/mysql.pm

Bref, je déprime... au secouuurs[/code]

[Jeh]

Tu as l'air de bosser en cgi, tu n'as rien dans le log d'apache (je dis apache car tu sembles être sous linux) ?
As-tu une base nommée 'mabase' de créée ?

[sabbish]

J'ai bien une base de créé qui s'appelle mabase. Je viens d'aller voir dans l'error log qui ne me donne rien si je laisse la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "Content-type: text/html\n\n";

Par contre si j'enlève cette ligne j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at (eval 1) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: ADO, ExampleP, Multiplex, Pg, Proxy.
 at test.cgi line 13

Dois je en déduire que mon mysql.pm n'est pas au bon endroit ? Si oui, est ce que je peux le déplacer tout seul ou est ce que je dois réinstaller le package ?

[sabbish]

Merci Jeh pour ta réponse, en fait mon install n'était pas bonne (mauvaise ressource sur le web).
Au cas ou, pour ceux qui veulent installer DBI Mysql et qui se galèrent : très bonne FAQ de GLDavid(http://perl.developpez.com/faq/?page...32#sectionC32b merci à lui !

[djibril]

c'est le but des cours de GLdavid et de la FAQ, vous aider