Perl unendlich

[Markus Banach]

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

sub filtering1 {

print "Do you want to keep .gif, .jpg accesses\nin your log entries ? " ;
$answer1 = <STDIN> ;
my $myra = "false" ;

while ( $myra eq "false" ) {
       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

---

1. nN ↩︎

2. yY ↩︎