乱数、while文、if文の練習
秘密の数を当てるゲーム
#!/usr/bin/perl -w
my $secret = int(1 + rand 100);
while (1) {
print "Please enter a guess from 1 to 100: ";
chomp(my $guess =
if ($guess =~/quit|exit|^\s*$/i) {
print "Sorry you gave up.The number was $secret.\n";
last;
} elsif ($guess < $secret) {
print "Too small.Try again!\n";
} elsif ($guess == $secret) {
print "That was it!\n";
last;
}else {
print "Too large. Try again!\n";
}
}