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

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

Это то, что у меня есть до сих пор:

print "Enter a word to look up: ";

chomp ($usrword = <STDIN>);

Ответы

Ответ 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.

Ответ 2

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

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