Flushing Perl STDIN buffer

Question

¿Hay alguna manera de borrar el buffer STDIN en Perl? Una parte de mi programa tiene una salida larga (tiempo suficiente para que alguien ingrese algunos caracteres) y después de esa salida pido una entrada, pero si los caracteres fueron ingresados ​​durante la salida, se "agregan" a lo que se ingresa en la entrada parte. Aquí hay un ejemplo de mi problema:

for(my $n = 0; $n < 70000; $n++){ 
    print $n . "\n"; 
} 
chomp(my $input = <STDIN>); 
print $input . "\n"; 

La salida incluiría los caracteres ingresados ​​durante la salida de ese ciclo for. ¿Cómo podría desactivar STDIN o eliminar el búfer STDIN (o de otra forma no permitir que se inserten caracteres adicionales en STDIN antes de llamarlo)?

Answer 1

Parece que se puede lograr esto con el módulo Term::ReadKey:

#!perl 

use strict; 
use warnings; 
use 5.010; 

use Term::ReadKey; 

say "I'm starting to sleep..."; 
ReadMode 2; 
sleep(10); 
ReadMode 3; 
my $key; 
while(defined($key = ReadKey(-1))) {} 
ReadMode 0; 
say "Enter something:"; 
chomp(my $input = <STDIN>); 
say "You entered '$input'"; 

Esto es lo que sucede:

• ReadMode 2 significa "poner el modo de entrada en el modo normal, pero apagar el eco". Esto significa que cualquier golpeteo del teclado que haga el usuario mientras se encuentre en su código computacionalmente caro no se reflejará en la pantalla. Todavía se entró en búfer STDIN 's aunque, por lo ...
• ReadMode 3 convierte STDIN en modo cbreak, lo que significa STDIN tipo de personal se van después de cada pulsación de tecla. Es por eso que ...
• while(defined($key = ReadKey(-1))) {} sucede. Esto está eliminando los caracteres que el usuario ingresó durante el código de costo computacional. Luego ...
• ReadMode 0 restablece STDIN, y puede leer en STDIN como si el usuario no hubiera golpeado el teclado.

Cuando ejecuto este código y explosión en el teclado durante la sleep(10), a continuación, introduzca un texto diferente después del indicador, sólo se imprime el texto que he escrito después de la pronta aparición.

Estrictamente hablando, el ReadMode 2 no es necesario, pero lo coloco allí para que la pantalla no se sature con el texto cuando el usuario golpea el teclado.

Answer 2

{ local $/; <STDIN> } 

Esta forma temporal - se limita al alcance del bloque - establece $ /, el registro separador de entrada, para ser undef, que le dice a Perl acaba de leer todo lo que en vez de leer una línea a la vez. Luego lee todo lo que está disponible en STDIN y no hace nada con él, lo que hace que el búfer se vacíe.

Después de eso, puede leer STDIN de forma normal.

Answer 3

que tenían el mismo problema y lo resolvió con sólo descartar nada en STDIN después del procesamiento de la siguiente manera:

for(my $n = 0; $n < 70000; $n++){ 
    print $n . "\n"; 
} 
my $foo=<STDIN>; 
print "would you like to continue [y/n]: "; 
chomp(my $input = <STDIN>); 
print $input . "\n";