perl | Uso de STDIN para entrada

Perl permite al programador aceptar entradas del usuario para realizar operaciones. Esto hace que sea más fácil para el usuario dar su propia entrada y no solo la proporcionada como entrada codificada por el programador. Esta entrada se puede procesar e imprimir con el uso de la función print() .

La entrada a un programa Perl se puede dar por teclado con el uso de <STDIN> . Aquí, STDIN significa Standard Input. Aunque no hay necesidad de poner STDIN entre el operador ‘diamante’ o ‘nave espacial’, es decir, <>. Es una práctica estándar hacerlo. El operador <> también se puede usar para escribir en archivos. <STDIN> también se puede usar en contexto escalar y de lista .

Sintaxis: $x = <STDIN>; o $x = <>;

Ejemplo:

#!/usr/bin/perl -w 
use strict;
use warnings;
  
print"Enter some text:";
my $string = <STDIN>;
  
print "You entered $string as a String";

Aporte:

GeeksForGeeks

Producción:

Enter some text: GeeksForGeeks
You Entered GeeksForGeeks
as a String

En el código anterior, después de ingresar la entrada, es necesario presionar ENTER. Este ENTER se usa para decirle al compilador que ejecute la siguiente línea del código. Pero, <STDIN> toma esta tecla ENTER presionada como parte de la entrada dada y, por lo tanto, cuando imprimimos la línea. Se imprimirá automáticamente una nueva línea después de la string de entrada. chomp()Para evitar esto, se utiliza una función . Esta función eliminará el carácter de nueva línea agregado al final de la entrada proporcionada por el usuario.

Ejemplo:

#!/usr/bin/perl -w 
use strict;
use warnings;
  
print"Enter some text:";
my $string = <STDIN>;
chomp $string;
  
print "You entered $string as a String";

Aporte:

GeeksForGeeks

Producción:

Enter some text: GeeksForGeeks
You Entered GeeksForGeeks as a String