Discussion :

[marie4449]

bonjour je commence juste a etudier perl et j'ai un soucis quelque pars mais impossible de voir ou !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
sub requete()
{
$requete ="select domainenom from domainecoord where domainenom ='$nomdom';";
 
#prépare la requête sql
  $req = $dbh->prepare($requete);
 
  #exécution de la requête sql
  $req-> execute() || die "probleme";
 
  while(($nomdomaine)=$req -> fetchrow_array)
 
  {
  print "$nomdomaine\n"; 
 
  } 
}
 
 
$res = requete();
 
#condition
if  ($res == '')
{
print"ce nom de domaine n'existe pas \n";	
}
else
 
{
print"ce nom de domaine existe\n";
}

[fred_crrm]

même pas un message d'erreur, un indice ?

[marie4449]

non rien du tout ...le probleme je croit vient la requette car elle doit retourner une chaine de caractere ou rien...Et elle retourne 1 ou 0

[PluX59]

Hello,

Gasp, tu commence effectivement à étudier perl

Ta fonction 'requete' ne retournera jamais rien. Elle fait un print des résultats de ta requête, mais si ta variable '$nomdom' n'est pas initialisée, autant dire qu'il n'y aura même pas d'affichage.
Le seul moyen pour une fonction de retourner une valeur (scalaire ou autre) est d'employer le mot-clé 'return'.

De plus, la comparaison de chaine de caractères se fait avec l'opérateur 'eq' et non '=='.

Essaye plutôt ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
  sub requete() {
    my ( $nomdom ) = @_;
 
    $requete ="select domainenom from domainecoord where domainenom ='" . $nomdom . "'";
 
    # Prépare la requête sql
    $req = $dbh->prepare($requete);
 
    # Exécution de la requête sql
    $req->execute() || die "probleme";
 
    return $req->fetchrow_array;
}
 
$res = requete("www.developpez.net"); # non-non, pas chauvin :)
 
#condition
if  ( $res eq '' ) {
  print "ce nom de domaine n'existe pas\n";	
} else {
  print "ce nom de domaine existe\n";
}

Dis moi si les résultats sont plus probants

PluX59

[marie4449]

non ca fonctionne pas
j'ai oublier de dire que $nomdom jle récuperai comme ca

Code :

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

1
2
3
 
print "Entrer un nom de domaine";
my $nomdom = <STDIN>;

donc est ce que je dois mettre :

Code :

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

1
2
 
$res = requete($nomdom);

[PluX59]

Re,

Si tu utilises le code que je t'ai indiqué plus haut, la réponse est oui.

Essaye de mettre des print/printf un peu partout pour vérifier le contenu des variables:
- '$nomdom', '$requete' et la valeur lue avec la commande '$req->fetchrow_array' dans la fonction 'requete',
- la valeur retournée par la fonction 'requete'...

Enfin, essaye de récupérer le maximum d'informations... Et indique le tout: code modifié, valeur donnée en entrée standard, méthode d'appel de ton script perl, trace...

Plus il y'a d'informations, plus ça va vite à résoudre

PluX59