Flushing Perl buffer STDIN

Question

C'è un modo per cancellare il buffer STDIN in Perl? Una parte del mio programma ha una lunga uscita (tempo sufficiente per qualcuno per inserire alcuni caratteri) e dopo quell'output chiedo l'input, ma se i caratteri sono stati inseriti durante l'output, vengono "attaccati" a qualsiasi cosa venga immessa nell'input parte. Ecco un esempio del mio problema:

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

L'output includerebbe qualsiasi carattere immesso durante l'output da quel ciclo for. Come potrei disabilitare STDIN o svuotare il buffer STDIN (o in un altro modo per non consentire l'inserimento di caratteri extra in STDIN prima di chiamarlo)?

Answer 1

Sembra che si può raggiungere questo obiettivo con il modulo 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'"; 

Ecco cosa succede:

• ReadMode 2 significa "mettere la modalità di ingresso in modalità normale, ma spegnere echo". Ciò significa che qualsiasi battito della tastiera che l'utente fa mentre sei nel tuo codice computazionalmente costoso non verrà visualizzato sullo schermo. Viene comunque immesso nel buffer STDIN, quindi ...
• ReadMode 3 trasforma STDIN in modalità cbreak, ovvero STDIN si arrossisce dopo ogni pressione di un tasto. Ecco perché ...
• while(defined($key = ReadKey(-1))) {} accade. Questo è lo svuotamento dei caratteri che l'utente ha inserito durante il codice computazionalmente costoso. Quindi ...
• ReadMode 0 ripristina STDIN e puoi leggere da STDIN come se l'utente non avesse battuto sulla tastiera.

Quando ho eseguito questo codice e botto sulla tastiera durante la sleep(10), quindi inserire qualche altro testo dopo il prompt, viene stampato solo il testo ho digitato dopo è apparso il prompt.

Strettamente parlando, lo ReadMode 2 non è necessario, ma l'ho messo lì in modo che lo schermo non diventi ingombrante di testo quando l'utente batte sulla tastiera.

Answer 2

{ local $/; <STDIN> } 

Questa temporanea - limita il campo di applicazione del blocco - imposta $ /, all'ingresso record separatore, per essere undef, che dice a perl di leggere proprio tutto invece di leggere una riga alla volta. Quindi legge tutto disponibile su STDIN e non fa nulla con esso, quindi svuota il buffer.

Dopodiché, è possibile leggere STDIN normalmente.

Answer 3

Ho avuto lo stesso problema e risolto da solo scartando qualsiasi cosa in STDIN dopo l'elaborazione in questo modo:

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";