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]