Perl STDINバッファをフラッシュする

Question

PerlでSTDINバッファをクリアする方法はありますか？私のプログラムの一部は長時間の出力（誰かが少数の文字を入力するのに十分な時間）を持っており、その出力の後に入力を求めますが、出力中に文字が入力された場合、入力に入力されたもの部。ここに私の問題の例があります：

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

出力には、そのforループの出力中に入力された文字が含まれます。どのようにしてSTDINを無効にするか、STDINバッファをフラッシュするか（またはそれを呼び出す前に余分な文字をSTDINに挿入しないようにする方法）？あなたはTerm::ReadKeyモジュールでこれを達成することができますように見えます

Answer 1

：

#!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'"; 

はここで何が起こるかです：

• ReadMode 2は「通常モードに入力モードを置くが、エコーをオフ」を意味します。これは、計算コストの高いコードを使用している間に、ユーザーがキーボードで叩いたことがスクリーンにエコーされないことを意味します。それでもSTDINのバッファに入力されます。
• ReadMode 3STDINをcbreakモードにすると、すべてのキーを押すたびにSTDINの種類がフラッシュされます。だからこそ...
• while(defined($key = ReadKey(-1))) {}が発生します。これは、計算コストの高いコードでユーザーが入力した文字を洗い流しています。次に...
• ReadMode 0リセットSTDINSTDINから読み取ることができます。ユーザーがキーボードを押さなかったかのようにします。

キーボードでsleep(10)の間にこのコードを実行してから、プロンプトの後に他のテキストを入力すると、プロンプトが表示された後に入力したテキストのみが表示されます。

厳密に言えば、ReadMode 2は必要ありませんが、ユーザーがキーボードを叩いたときに画面が乱雑になることはありません。

これは一時的に

Answer 2

{ local $/; <STDIN> } 

- ブロックの範囲に限定されるものでは - ちょうど一度にラインを読んだのではなく、すべてを読み取るためのperlに指示され、undefをする$ /、入力レコードの区切り文字を設定します。その後、STDINで利用可能なすべてのものを読み込み、何もしないので、バッファをフラッシュします。

その後、通常どおりSTDINを読むことができます。

Answer 3

私は同じ問題を抱えていたし、ちょうどこのような処理の後にSTDINに何かを捨てることによってそれを解決：

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