[MySQL/Perl] Aidez moi !

Aidez moi ! [MySQL/Perl] - Programmation

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 :)

Reply

Marsh Posté le 28-01-2002 à 21:52:24   

Reply

Marsh Posté le 28-01-2002 à 22:48:23    

:hello:

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 :D
 

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...


---------------
Tout à commencé par un rêve...
Reply

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.

Reply

Marsh Posté le 30-01-2002 à 00:56:31    

je voi pas  :ouch:  
 
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  :??:


---------------
Tout à commencé par un rêve...
Reply

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]

Reply

Marsh Posté le 30-01-2002 à 19:02:31    

:jap: merci :jap:
mais je n'est rien fait  :sol:


---------------
Tout à commencé par un rêve...
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed