Hallo
Wie kann ich in in Perl den Eingabepuffer leeren ? In C ging das ja so irgendwie flush(stdin) . Ich möchte nämlich in einer Schleife auf Eingaben warten aber der Springt mir immer raus?
thx
Wie kann ich in in Perl den Eingabepuffer leeren ? In C ging das ja so irgendwie flush(stdin) . Ich möchte nämlich in einer Schleife auf Eingaben warten aber der Springt mir immer raus?
Code:
my $r= undef;
my $s = undef;
do{
print "Input r:";
$r= <STDIN> ;
chomp $r;
print "Input s: ";
$suite = <STDIN> ;
chomp $s;
}while(!$r $$ !s );
thx