Как запросить ввод и выход, если пользователь ввел пустую строку?

Question

Я новичок в Perl и пишу программу, в которой хочу заставить пользователя ввести слово.Если пользователь вводит пустую строку, программа должна завершиться.

Это то, что у меня есть:

print "Enter a word to look up: ";

chomp ($usrword = <STDIN>);

Answer 1

Ты почти у цели.

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.

Answer 2

Вывод файла по умолчанию буферизован.Поскольку приглашение очень короткое, оно все еще находится в буфере вывода.Вы можете отключить буферизацию в STDOUT, добавив эту строку кода перед печатью ...

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