ユーザが空の文字列を入力した場合に入力と終了を促す方法は？

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