如果用户输入空字符串，如何提示输入和退出？

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]);