✔ Perl - Eingabepuffer leeren!

[downset04]

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?

    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

 

[renee]

ist das hier wirklich der Code, den Du hast:

    }while(!$r $$ !s );

 

[downset04]

hallo - nein hab mich vertipselt geht natürlich && aber trotzdem funktionierts nicht wie kann ich das machen dass er erst aus der schleife geht wenn beide variablen eingelesen wurden? er geht mir immer raus und ich weiß nciht was ich machen soll?

 

[renee]

Schau mal genau auf Deine Variablennamen (benutzt Du überhaupt use strict?)

 

[downset04]

hallo
ja verwend ich!
könntest du mir bitte sagen wie du das machen würdest?
thx downset04

 

[downset04]

    my $r= undef;
    my $s = undef;
    do{        
        print "Input r:";   
        $r= <STDIN> ;
        chomp $r;
        print "Input s: ";  
        $s = <STDIN> ;        
        chomp $s;
    }while(!$r && !$s );

so ist mal der code correct wenn ich jetzt r eingebe und in s enter drücke geht er mir aus der schleife ich will aber dass er erst weiter geht wenn in beiden variablen was steht?

 

[renee]

Ersetze && durch or

 

[downset04]

oh mann danke - war totaler denkfehler von mir - oft scheitert man an den einfachsten dingen!