21 lines
405 B
Perl
21 lines
405 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $target = 12;
|
||
|
|
print "Guess my number!\n";
|
||
|
|
print "Enter your guess: ";
|
||
|
|
my $guess = <STDIN>;
|
||
|
|
|
||
|
|
if ($target == $guess) {
|
||
|
|
print "That's it! You guessed correctly!\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
if ($guess > $target) {
|
||
|
|
print "Your number is more than my number\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
if ($guess < $target){
|
||
|
|
print "Your number is less than my number\n";
|
||
|
|
exit;
|
||
|
|
}
|