bonjour,
Un petit souci avec la lecture sur STDIN en PERL :
Pour lire un caractere au clavier, soit je fais :
$var=getc;
soit :
read STDIN, $var, 1;
Ces 2 ecritures dans l'utilisation suivante posent probleme :
while (1){
print "Do you want to quit ?(Y/N)\n";
if (getc eq 'Y'{
last;}
}
print "end\n";
a savoir qu'une fois sur 2, le getc passe a la trappe et la boucle continue comme si le if n'existait pas. Une chute d'écran donnerait ceci :
Do you want to quit ?(Y/N)
N
Do you want to quit ?(Y/N)
Do you want to quit ?(Y/N)
N
Do you want to quit ?(Y/N)
Do you want to quit ?(Y/N)
Y
end
Pourquoi ca marche qu'une fois sur 2 ?