Connection à une base Mysql
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:
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:
find /usr/lib/perl5/ -name DBI.pm
qui me renvoit :
Code:
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:
find /usr/lib/perl5/ -name mysql.pm
qui me renvoit :
Code:
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]
