Discussion :

[Jim_Nastiq]

voila ca me parait etrange de poser cette question parce qu'en javascript c'est tout bete , mais en perl j'arrive pas a mettre la main sur ce que je veux ! je souhaiterais recuperer la valeur d'un des champ de ma base j'ai donc un code du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my $req_log = qq{SELECT admin.pass FROM admin WHERE log = "$log"};
my $result = $dbh->do($req_log);
 
print $result,"\n";

mais en fait il me renvoi le nombre qui correspond au champ! moi je voudrais juste ce qu'il y a dans le champs!

ca doit etre tout bete ou bien je m'embrouille encore l'esprit


merci de m'aider...

[GLDavid]

Bonjour

Travailles-tu avec Perl CGI ?

@++

[Jim_Nastiq]

bonjour,

oui je travaille avec perl CGI, pourquoi?

[GLDavid]

Donc, je voudrais comprendre la question, tu disposes d'un formulaire et tu veux récupérer la valeur d'un champ que tu utilises pour questionner une base de données ?

@++

[Jim_Nastiq]

en fait j'ai une BDD qui contient une table qui elle meme contient la liste des login et de leur mot de passe!

donc dans mon formulaire je demande de rentrer login/mdp je les recupere pour ensuite effecture un test sur la BDD si ce login et mdp sont correct...

[Jedai]

do n'est pas utile pour les requêtes SELECT car il ne retourne que le nombre de lignes affectés, on peut l'utiliser pour les INSERT par exemple.

Pour la plupart des requêtes, on utilise le couple prepare() et execute(), puis on utilise l'un des 'fetch' pour récupérer les données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
my $req = $dbh->prepare(qq{SELECT admin.pass FROM admin WHERE log =  ? });
my $result = $req->execute( $log );
 
while(my ($pass) = $result->fetchrow_array ){
  print $pass,"\n";
}

("perldoc DBI" pour plus de détails, je te signale que 1 minute dans cette doc aurait répondu à ta question...alors que le forum ne peut réagir à cette vitesse)

--
Jedaï

[Jim_Nastiq]

merci jeid mais j'ai une erreur dans le log apache :

Can't call method "fetchrow_array" without a package or object reference

pourtant j'ai bien mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

use dbi;

[Woufeil]

On peut voir ton appel à fetchrow_array ? Tu as fait le même que celui de Jedai ?

[Jim_Nastiq]

oui tout pareil que Jedai

[Jedai]

Désolé, il y avait une petite erreur dans mon script (ça m'apprendra à écrire de mémoire pour un truc que j'ai si rarement utilisé...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
my $req = $dbh->prepare(qq{SELECT admin.pass FROM admin WHERE log =  ? });
$req->execute( $log );
 
while(my ($pass) = $req->fetchrow_array ){
  print $pass,"\n";
}

[Jim_Nastiq]

ok je te remercie jedai(et les autres aussi ) , ca parait fonctionner!