Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1753 connectés 

  FORUM HardWare.fr
  Programmation

  [MySQL/Perl] Aidez moi !

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[MySQL/Perl] Aidez moi !

n°94296
humanfacto​r
Posté le 28-01-2002 à 21:52:24  profilanswer
 

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

mood
Publicité
Posté le 28-01-2002 à 21:52:24  profilanswer
 

n°94307
stef_dober​mann
Personne n'est parfait ...
Posté le 28-01-2002 à 22:48:23  profilanswer
 

: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...
n°94683
humanfacto​r
Posté le 29-01-2002 à 21:57:47  profilanswer
 

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.

n°94741
stef_dober​mann
Personne n'est parfait ...
Posté le 30-01-2002 à 00:56:31  profilanswer
 

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...
n°95034
humanfacto​r
Posté le 30-01-2002 à 17:58:17  profilanswer
 

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]

n°95063
stef_dober​mann
Personne n'est parfait ...
Posté le 30-01-2002 à 19:02:31  profilanswer
 

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


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [MySQL/Perl] Aidez moi !

 

Sujets relatifs
[PHP] Aidez moi a finir un script d'upload par HTTP !!Comment configurer mySql , apache et php4 ??
PHP / mysql : problème tout con ...MySQL: Comment supprimer des tables rapidement avec le même préfixe ?
PostgreSQL VS MySQL[ MYSQL ] Primary Key
MySQL-- operateur de non-egalité???[ MySQL ] - - - selectionner 16 derniers enregist. - sans clef prim.
Perl et Javascript....comment faire un grosse manip de checkbox????CSV -> MySQL espaces dans chiffres [Problem Regled]
Plus de sujets relatifs à : [MySQL/Perl] Aidez moi !


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR