I have this code in perl to guess a number but how can I make it loop until the
ID: 3926490 • Letter: I
Question
I have this code in perl to guess a number but how can I make it loop until the correct answer is entered. Like this;
guess my number
Enter your guess: 10
your number is less than my number
Enter your guess: 11
your number is less than my number
Enter your guess: 12
That is it!
--------------------------------CODE----------------------------
#!/usr/bin/perl
# guessnum.pl
use warnings;
use strict;
my $target = 12;
print "guess my number.. Enter your guess: ";
my $guess = <STDIN>;
if ($target == $guess) {
print "That is it! ";
exit;
}
if ($target < $guess) {
print "your number is greater than my number ";
exit;
}
if ($target > $guess) {
print "your number is less than my number ";
exit;
}
Explanation / Answer
#!/usr/bin/perl
# guessnum.pl
use warnings;
use strict;
my $target = 12;
print "Guess my number.. Enter your guess: ";
my $guess = <STDIN>;
while($target != $guess)
{
if ($target < $guess) {
print "your number is greater than my number ";
}
else{
print "your number is less than my number ";
}
print "Enter your next guess: ";
$guess = <STDIN>;
}
print "That is it! ";