¿Cómo solicitar la entrada y salir si el usuario ingresó una cadena vacía?

Question

Soy nuevo en Perl y estoy escribiendo un programa en el que quiero forzar al usuario a ingresar una palabra. Si el usuario ingresa una cadena vacía, el programa debería salir.

Esto es lo que tengo hasta ahora:

print "Enter a word to look up: "; 

chomp ($usrword = <STDIN>); 

Answer 1

Ya casi ha terminado.

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

La salida del archivo está almacenada en el búfer por defecto. Como el aviso es muy corto, todavía está en el búfer de salida. Puede deshabilitar el almacenamiento en búfer en STDOUT agregando esta línea de código antes de imprimir ...

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