Aidez moi ! [MySQL/Perl] - Programmation
Marsh Posté le 28-01-2002 à 22:48:23
 
 
| Citation : C'est bien ce qu'il faillait installé ?  | 
 
Oui 
| Citation : C'est peut-être mieux sous Linux non ?  | 
 
faut voir, mais oui pour ma part  
 
 
| Citation : pour pouvoir me connecter à une base grâce à un script CGI ?  | 
 
my $dbh = DBI->connect("DBI:mysql:DATABASE:localhost", $login, $pwd, { RaiseError=>1, PrintError =>1 }); 
#Création de la requete 
$query  = "select LOGIN,PASSWORD from client"; 
$sth = $dbh->prepare($larequete) or die "prepare : impossible :",$dbh->errstr; 
unless ( $verif = $sth->execute ) { 
print "Erreur dans la base de données, imposssible de continuer \n($larequete)\n"; 
print $sth->errstr."\n"; 
print "Voici la requete ($larequete)\n"; 
$retour{'error'} = $sth->errstr ; 
exit(1); 
} 
while(@row = $sth->fetchrow()){push @leresult,[@row] ;} 
$dbh->finish (); 
$dbh->disconnect; 
 
for (@result){ 
@tab = @$_; 
print "LOGIN $tab[0] - PASSWORD $tab[1]\n"; 
} 
 
voila ta tout pour bosser 
en ce ki concerne l'ajout de compte MySQL, je connais trop... 
Marsh Posté le 29-01-2002 à 21:57:47
Voici mon script CGI de connection à la base MySQL : 
 
#!d:\perl\bin\perl.exe 
#!/usr/local/bin/perl 
 
use lib 'd:\perl\site\lib'; 
use DBI; 
use DBI::DBD; 
 
print ("Content-type: text/html\n\n" ); 
 
my $serverName = "localhost"; 
my $serverPort = "3306"; 
my $serverUser = "XXXXXXXXX";  
my $serverPass = "XXXXXXXX"; 
my $serverDb = "mysql"; 
my $driver = "DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort"; 
 
# Connection 
my $dbh = DBI->connect($driver,$serverUser,$serverPass) || print "Can't 
connect:$!\n"; 
 
# On prepare la requete 
my $sth = $dbh->prepare("select * from user" ); 
 
# On la lance 
$sth->execute; 
 
# On parcours le resultat 
while (my @row = $sth->fetchrow_array)  
{ 
 print "$row[0] <BR>"; 
} 
 
# Deconnection 
$dbh->disconnect(); 
 
 
Quand je lance ce script avec la commande perl(perl nom_du_fichier) : ça fonctionne correctement 
 
Mais quand j'essaie d'y accèder via IE6 ou Opera : nada !!!!! 
(http://localhost/cgi-bin/nom_du_fichier.pl ou http://127.0.0.1/cgi-bin/nom_du_fichier.pl) 
 
Franchement je vois pas  
 
 
J'utilise Sambar comme serveur web, le script a été placé dans le répertoire cgi-bin. 
Marsh Posté le 30-01-2002 à 00:56:31
je voi pas   
  
 
un simple 
use DBI; 
suffit sur ma machine 
 
à la place de : 
use lib 'd:\perl\site\lib';  
use DBI;  
use DBI:DBD;  
 
connais pas Sambar, j'utilise Apache sous Win98 et sous Linux et ca marche nikel !! 
 
la je vois vraiment pas   
 
Marsh Posté le 30-01-2002 à 17:58:17
J'ai effectivement essayé Apache et là MIRACLE !!! ça fonctionne à merveille 
 
Mais bon, je ne vois tjs pas pourquoi ça ne fonctionne pas avec Sambar ???? 
 
Merci SteF_DOBERMANN pour ton aide  
 
 
@+ 
[edtdd]--Message édité par HumanFactor--[/edtdd]
Marsh Posté le 30-01-2002 à 19:02:31
 merci
 merci  
 
mais je n'est rien fait   
 
Marsh Posté le 28-01-2002 à 21:52:24
Salut !
 
 
 
 
Voilà j'ai installé Active Perl et MySQL sous win sur mon PC
Ainsi que les modules DBI et DBD-mysql
C'est bien ce qu'il faillait installé ?
Est-ce que quelqu'un peut m'expliquer la démarche à suivre pour configurer tout ça : créer un compte utilisateur pour pouvoir me connecter à une base grâce à un script CGI ?
J'ai essayé de balancer un script de connection au serveur MySQL qui tourne sur ma machine (localhost) via une interface Web mais impossible de m'y connecter
Je commence à désespèrer grave !
C'est peut-être mieux sous Linux non ?
Merci d'avance à tous