Question Comment demander une entrée et une sortie si l'utilisateur a entré une chaîne vide?


Je suis nouveau dans Perl et j'écris un programme où je veux forcer l'utilisateur à entrer un mot. Si l'utilisateur entre une chaîne vide, le programme doit quitter.

C'est ce que j'ai jusqu'à présent:

print "Enter a word to look up: ";

chomp ($usrword = <STDIN>);

10
2018-03-12 03:22


origine


Réponses:


Tu y es presque.

print "Enter a word to look up: ";
my $userword = <STDIN>; # I moved chomp to a new line to make it more readable
chomp $userword; # Get rid of newline character at the end
exit 0 if ($userword eq ""); # If empty string, exit.

25
2018-03-12 03:27



La sortie du fichier est mise en mémoire tampon par défaut. Comme l'invite est trop courte, elle se trouve toujours dans le tampon de sortie. Vous pouvez désactiver la mise en mémoire tampon sur STDOUT en ajoutant cette ligne de code avant d'imprimer ...

select((select(STDOUT), $|=1)[0]);

0
2017-07-06 22:11