Discussion :

[nah_wah]

Bonjour tout le monde;
j'ai un parametre d'entrée pour une requete et un autre de sortie et je veux les comparer, voici mon code:

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
 
 
#$code param entreé
#$id_cli sorti (requete)
 
 my($code) = $cgi->param("code");
  my($client) = $cgi->param("client");
 # rechercher l'existance du code
  my ($con)="select id_cli from client where id_cli='$code';";
  my $v =$db->prepare($con);
  $v-> execute()|| die "pb de selection : $DBI::errstr";
  while (my  ($id_cli) = $v -> fetchrow_array)
    {
    if ($id_cli ne $code) # ma comparaison j'ai essaye (!=) 
   {print "coucou c moi result: $id_cli\n\t ";
   }
   };

mon code est il correcte et pourquoi la comparaison entre $code et $id_cli ne marche pas
Merci.

[GLDavid]

Attention, on n'est pas en shell !
Si tes valeurs sont des nombres, les opérateurs de comparaisons usuels (==, <=, >=, <, >) sont requis. ne ou uq ne concernent que les chaînes de caractères.

@++

[nah_wah]

resalut,
je suis connecte a une base mysql et
mes valeurs sont des (varchar),j'ai essaye avec les operateurs:

Code :

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

(==, <=, >=, <, >)

quel operateur on utilise pour la difference et est ce mon code est juste
Merci

[djibril]

si tu compare des nombre, different c'est

Code :

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

!=

LA FAQ est là pour ça!!!

[Jedai]

Il a marqué qu'il a déjà essayé "!=", à mon avis le problème est plutôt dans les valeurs comparées : tu devrais essayer de les imprimer toutes les deux pour voir ce qui cloche (enfin un exemple pour $id_cli bien sûr).

--
Jedaï

[nah_wah]

resalut dgibril;
tu n'as pas lu mon code tres bien il y a un commentaire :

Code :

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

1
2
3
4
5
6
 
    { 
    if ($id_cli ne $code) # ma comparaison j'ai essaye (!=) 
   {print "coucou c moi result: $id_cli\n\t "; 
   } 
   };

relis svp mon code et dis en premier lieu le code est il exacte et une autre idée.
Merci.

[djibril]

faut voir ce que tu compares!!
montre nous un exemple. Il se peut que ce soit de temps en temps des chiffres ou chaine de caracteres. Est ce dustyle (222 ou id222)
Bref, as tu un message d'erreur te spécifiant isn't numeric .....

[nah_wah]

ok dgibril;
1-je ne recois aucun message
2-le param d'entrer s'il existe ca marche
je te donne tout le code:

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
 
#!C:/perl/bin/perl.exe -w
use strict;
use DBI;
use CGI;
my($cgi) = new CGI;
print "Content-type: text/html\n\n";
  #Connection à la base de données mysql GTech
  my $db = DBI -> connect (("dbi:mysql:dbname=gtech;host=localhost;","root","******")) or die "connection impossible!";
 
  #insertion d'une donnée
  my($code) = $cgi->param("code");
  my($client) = $cgi->param("client");
 # rechercher l'existance du code
  my ($con)="select id_cli from client where id_cli='$code';";
  my $v =$db->prepare($con);
  $v-> execute()|| die "pb de selection : $DBI::errstr";
 while (my  ($id_cli) = $v -> fetchrow_array)
       {
     if
       ($code!=$id_cli)
      {   $db->do("insert into client values ('$code', '$client');");
        print "enregistrer le resultat: $code ";}
         else
       {print("Existe deja .")}
 
       }
       $v-> finish();

remarque : si j'entre un code existant dans la table la reponse est bonne (existe deja) mais si le code n'existe pas pas d'insertion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 ma table client se presente comme suivant:
structure:
CREATE TABLE `client` (
  `ID_CLI` varchar(10) NOT NULL default '',
  `INTITULE` varchar(10) default NULL,
  PRIMARY KEY  (`ID_CLI`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1
Enregistrement:
1 pp
2 kkk
12 gfjjhj

j'espere que j'etais clair sinon je suis la.
Encore merci.

[djibril]

ok j'ai compris qu'il n'insert pas. Mais est ce qu'il t'affiche

Code :

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

1
2
 
enregistrer le resultat:

[nah_wah]

non;
la page de sorti est vide.

[djibril]

un truc tout bete, essaye de remplacer

Code :

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

1
2
3
4
 
       ($code!=$id_cli)
par
     ($id_cli!=$code)

[GLDavid]

Je rejoins l'idée de Jedai.
Il faudrait que tu affiches tes valeurs pour voir si elles contiennent quelque chose.

@++

[djibril]

je suis d'accord avec David, donc jedai
Je viens de faire un script similaire chez moi et pas de souci, donc faut savoir ce que tu compares.
Un conseil aussi, remplace

Code :

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

1
2
3
4
 
$db->do("insert into client values ('$code', '$client');"); 
par
$db->do("insert into client values ('$code', '$client');") || die "pb insertion";

[nah_wah]

je crois que j'ai cerne le probleme .
si la valeur de la requete est vide (un nouveau enregistrement ca passe pas ) il ne traite pas le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
while (my ($id_cli) = $v -> fetchrow_array)
       {
     if
    ($id_cli!=$code )
       {
       $db->do("insert into client values ('$code', '$client');");
         print "enregistr result: $id_cli ";}
          else
       {print("Existe deja \n.")
 
       };
 };

et si le contraire fin ca passe par le traitement (si le code existe ).
y'a t il un moyen .

[djibril]

c'est normal!!!
Si ta requete sql est vide, perl ne rentre pas dans le while (normal, et dans ce cas, les if ne sont pas verifiés). Par contre s'il y a au moins un enregistrement, ça devrait etre bon.
Mais bon, tu peux toujours recuperer le nombre de resultats. Va lire la doc CPAN de dbd::mysql

[nah_wah]

je vous remercie.
j'ai trouvée la solution.
si ca vous interesse :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $nb=$v-> execute()|| die "pb de selection : $DBI::errstr";
if ($nb==0) {
  $db->do("insert into client values ('$code', '$client');");
  print "Enregistrer"}
 
  else
       {
       {print("Existe deja \n.")
 
       };
 };

Merci.