Perl unendlich

[Rama]

Liebes Forumspublikum,

Meine Funktion filtering1 in Perl fuehrt zu einer Endlosschleife.
Waehrend Sie meine Frage lesen schreibt das Programm immer noch "Sorry I'm unable to do that" in den <STDOUT> .

Dabei wollte ich nur verhindern, das das Skript bei einer Falscheingabe einfach abbricht.

Kann mir jemand von Ihnen auf die Spruenge helfen.

Vielen Dank im vorraus !

Markus Banach

prbiers mit :

sub filtering1 {

my $myra = "false" ;

while ( $myra eq "false" ) {

print "Do you want to keep .gif, .jpg      accesses\nin your log entries ? " ;
$answer1 = <STDIN> ;
        if ($answer1 =~ /^[1]/) { print "I'll remove them for you";
                                  $myra = "true" ;}
        elsif ($answer1 =~ /^[2]/) { print "I'll keep them for you";
                                      $myra = "true" ; }
        else { print "Sorry I'm unable to do that"; }
                                     } # end of while      
                                              } # end of sub

Ramarag ;-)

---

1. nN ↩︎

2. yY ↩︎