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