perl | STDIN en contexto escalar y de lista

STDIN en Perl se usa para tomar entradas del teclado a menos que el usuario haya redefinido su trabajo.

Sintaxis: <STDIN>

 
Para recibir entradas desde el teclado o el operador se utiliza en Perl. Este operador lee una línea ingresada a través del teclado junto con el carácter de nueva línea correspondiente al ENTER que presionamos después de la entrada.

Ejemplo:

# Asking user for Input
print "What is your age?\n";
  
# Getting an age from the user
$age = <STDIN>;
  
# Removes new line from the input
chomp $age;
  
# Printing the value entered by user
print "Your age is ", $age;

Producción:
 

Entonces $edad contiene la entrada proporcionada por el usuario, así como el carácter de nueva línea. Para eliminar la nueva línea, se utiliza la función chomp, que elimina «\n» del final de la string.
 

 
Cuando STDIN se usa con contexto de lista, toma múltiples valores como una entrada desde el teclado. Presione ENTER para indicar elementos individuales en la lista. Para indicar el final de las entradas, presione Ctrl-D en los sistemas Linux mientras que Ctrl-Z en el sistema Windows.
El siguiente ejemplo muestra el uso de STDIN en el contexto de la lista.
Ejemplo:

# Get a city name from the user 
print "Enter the cities you have visited last year... ";
print "<Ctrl>-D to Terminate \n";
@city = <STDIN>;
  
# Removes new line appended at 
# the end of every input
chomp @city;
  
# Print the city names
print "\nCities visited by you are: \n@city ";

Producción:
 

Así es como funciona el programa anterior:
Paso 1: Obtenga la entrada de la lista del usuario separada por ENTER.
Paso 2: cuando se presiona Ctrl-D, indica el final de las entradas, por lo que Perl asigna todo a la array @city.
Paso 3: use la función chomp para eliminar una nueva línea de todas las entradas.
Paso 4: Imprimir los nombres de las ciudades dados como entrada.