Làm thế nào để nhắc nhập và thoát nếu người dùng nhập một chuỗi rỗng?

Question

Tôi mới sử dụng Perl và tôi đang viết chương trình mà tôi muốn buộc người dùng nhập một từ. Nếu người dùng nhập một chuỗi rỗng thì chương trình sẽ thoát.

Đây là những gì tôi có cho đến nay:

print "Enter a word to look up: "; 

chomp ($usrword = <STDIN>); 

Answer 1

Bạn sắp hoàn tất.

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

Đầu ra tệp được đệm theo mặc định. Vì dấu nhắc quá ngắn nên nó vẫn nằm trong bộ đệm đầu ra. Bạn có thể tắt tính năng đệm trên STDOUT bằng cách thêm dòng mã này trước khi in ...

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