Bonjour , j'ai un problème diabolique dans une boucle while qui ne me laisse jamais sortir d'elle pour continuer mon programme
$data est égal à 1 au début .
jrentre dans le if..et par suite dans le while ...je n'en sort jamais pourtant jlui spécifie meme dedans que $data =0 mais il veut pas....Il revient toujours a mon premier print :
"Le nom de comparaison que vous avez rentré existe deja , voulez-vous écraser l'ancien? (oui/non)

Un coup de pouce ce serait super
MERCI A+

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
 if ($data==1){
     while($data!=0) {
print "Le nom de comparaison que vous avez rentré existe deja , voulez-vous écraser l'ancien?  (oui/non)   " ;
$reponse=<STDIN>;
chomp($reponse);
          while(($reponse ne "oui")and($reponse ne "non"))
             {
             print "pas interoretable , retaper (oui.non)" ;
             $reponse=<STDIN> ;
             chomp($reponse) ;
             }
                 if ($reponse eq "oui")  {
my $sth = $dbh->prepare('DELETE  FROM essai where selection=?');
$sth-> execute($nomC) || die "pb de selection : $DBI::errstr";
#my $sth = $dbh->prepare('SELECT count(DISTINCT selection) FROM essai where selection=?');
#$sth-> execute($nomC) || die "pb de selection : $DBI::errstr";
#my $data = $sth->fetchrow();
my $data==0;}              #fermeture du if et en plus jlui di ke $data = 0 il devrait sortir du while
else {print "veuillez entrer un nouveau nom de comparaison?:    " ;  }  #fermeture du else
   }       #fermeture du while
 }#fermeture du data==1