Simple loop question

[Danny]

Hi list,

Hope this is not too simple or a stupid question:

I have a slight problem with a loop. It is a simple numbers guessing game. It
works fine, but when I run this script, it gives me "Too low" immediately after
the prompt. What should I do to get the last "else" statement displayed first?

Following is the code:

#!/usr/bin/perl -w

$upper = 20 ;
$lower = 1 ;
$target = 11 ;

while ( )
  {
    if ( $guess > $target )
      {
        print "Too high\n" ;
        $guess = <STDIN> ;
      }
    elsif ( $guess < $target )
      {
        print "Too low\n" ;
        $guess = <STDIN> ;
      }
    elsif ( $guess == $target )
      {
        print "You guessed right\n" ;
        exit ;
      }
    else
      {
        print "Please choose a number between ${lower} and ${upper}\n" ;
        $guess = <STDIN> ;
      }
    }

Thank you in advance

Danny

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>