Попытка написать простой цикл

Question

Не мог бы кто-нибудь помочь мне с петлей, пожалуйста. Я должен написать программу, которая просто просит вас угадать число от 1 до 10. Если это не правильный ответ, у вас появляется еще один шанс и т. Д.

Я могу заставить мой скрипт правильно напечатать/не правильно один раз, но как добавить в этот скрипт возможность повторить попытку пользователя (пока они не угадают правильное число)?

Вот мой основной сценарий, который, я уверен, очень упрощен и, вероятно, полон ошибок. Может ли кто-нибудь помочь мне разобраться в этой простой проблеме?

Извините за плохой макет, но я не понимаю, как разместить мой скрипт на этом сайте, извините!

use strict; 
use warnings; 

print "Hello, I've thought of a number, do you know what number it is?\n"; 
sleep (1); 
print "Try and guess, type in a number between 1 and 10!\n"; 
my $div = <STDIN>; 
my $i = 0; 
my $int = int(rand (10)) + 1; 
chomp $div; 
if ($div < $int) { 
    print ("The number I though of is higher than $div, try again?\n"); 
} 

if ($div > $int) { 
    print ("The number I though of is lower that $div, try again?\n"); 
} 

if ($div == $int) { 
    print ("Amazing, you've guessed mt number\n"); 
} 

Answer 1

Более простой подход не будет while loop.

use strict; 
use warnings; 

print "Hello, I've thought of a number, do you know what number it is?\n"; 
sleep (1); 
my $int = int(rand (10)) + 1; 
print "Try and guess, type in a number between 1 and 10!\n"; 

while (my $div = <STDIN>) { 
    chomp $div; 
    if ($div < $int) { 
     print "The number I though of is higher than $div, try again?\n"; 
    } 
    elsif ($div > $int) { 
    print "The number I though of is lower that $div, try again?\n"; 
    } 
    else { 
    print "Amazing, you've guessed mt number\n"; 
    last; 
    } 
} 

While (каламбур) код уже очень хорошо (вы используете strict и warnings и нет никаких синтаксических ошибок, яй для этого!) Есть некоторые вещи, которые я изменилась, и еще некоторые, где я бы предполагают улучшение.

Но сначала посмотрим на цикл. Программа останется в цикле while, пока условие истинно. Поскольку все, что пользователь может ввести (даже пустую строку), считается Perl истинным, это навсегда. Это нормально, так как есть условие выхода из цикла. Он находится в else части if. Оператор last указывает Perl выйти из цикла. Если else не выполнен, он вернется к началу блока while, и пользователь должен повторить попытку. Навсегда.

Изменения, которые я сделал: - Вам не нужно $i как вы не использовали его - Вы использовали три отдельных if заявления. Так как только один из трех условий может быть верно в данном случае, я слил их в один - Нет необходимости для скобок () с print

Предложения: - Вы должны назвать ваши переменные для того, что они делают, а не то, что они находятся. $int - нехорошее имя. Я бы пошел с $random, или даже $random_number. Многословность важна, если вам нужно вернуться к вашему коду в более позднем пункте. - Существует function called say, который вы можете включить с помощью use feature 'say';. Он добавляет say "stuff" в качестве эквивалента print "stuff\n".

---

Edit:

Если вы хотите добавить другие условия, которые непосредственно не относятся к числу которых пользователь вошел, вы можете добавить еще if.

while (my $div = <STDIN>) { 
    chomp $div; 

    if ($div eq 'quit') { 
    print "You're a sissy... the number was $int. Goodbye.\n"; 
    last; 
    } 

    if ($div < $int) { 
     print "The number I though of is higher than $div, try again?\n"; 
    } 
    elsif ($div > $int) { 
    print "The number I though of is lower that $div, try again?\n"; 
    } 
    else { 
    print "Amazing, you've guessed mt number\n"; 
    last; 
    } 
} 

Вы также можете добавить чек, чтобы убедиться, что пользователь ввел номер. Ваш текущий код будет выдавать предупреждения, если введено слово или письмо. Для этого вам потребуется регулярное выражение.Читайте на них в perlre. m// - match operator, который работает вместе с =~. \D соответствует любому символу, который не является числом (от 0 до 9). next шагов над остальной частью блока while и начинается с проверки состояния while.

while (my $div = <STDIN>) { 
    chomp $div; 

    if ($div =~ m/\D/) { 
    print "You may only guess numbers. Please try again.\n"; 
    next; 
    } 

    # ... 
} 

Таким образом, полная проверка означает "взгляд на вещи пользователь вошел, и если есть что-нибудь еще, чем число в нем вообще, жаловаться, и пусть он снова попробовать.

Answer 2

Используйте до цикла

my $guessed = 0; 
do { 
    print "Try and guess, type in a number between 1 and 10!\n"; 

    my $div = <STDIN>; 

    ...; 

    if ($div == $int) { 

     print ("Amazing, you've guessed mt number\n"); 
     $guessed = 1; 

    } 
} until ($guessed)