problème de connexion à ma base de données
bonjour les potes, je débute les bases de données avec perl.
je n'ai pas pu installer perl_DBD donc je bosse avec Net::mysql.
mon script est le suivant:
Code:
1
2
3
4
5
6
7
8
9
|
#!/bin/perl -w
use Net::MySQL;
my $mysql=Net::MySQL->new(hostname=>'localhost',database=>'gestion_note',user=>'root',password=>'azerty123' or die("impossible de se connecter a la bd");
$mysql->query(q{select nom_etudiant from ETUDIANT where num_etudiant=1}) or die $mysql->get_error_message;
$mysql->close; |
à l'exécution il se connecte effectivement à la base de données mais n'exécute pas la requête. le message affiché est le suivant:
#08S01Got packets out of order at ./testdb.pl line 9
que dois-je faire pour résoudre ce problème?
merci d'avance.
