Модифицируем эту программу , чтобы выполняющий ее человек угадывал секретное слово. У всех, кроме Алекса, программа будет непрерывно требовать ввести это слово, пока пользователь не наберет его правильно. Сначала мы приведем текст программы, потом дадим пояснения:

#!/usr/bin/perl -w
$secretword = "llama";     # секретное слово
print "Как Вас зовут? ";
$name = <STDIN>;
chomp($name);
if ($name eq "Alex") {
   print "Привет, Alex! Рад тебя видеть!\n";
} else {
   print "Привет, $name!\n";   # обычное приветствие
   print "Секретное слово? ";
   $guess = <STDIN>;
   chomp($guess);
   while ($guess ne $secretword) {
       print "Неверно, попробуйте еще раз. Секретное слово? ";
       $guess = <STDIN>;
       chomp($guess);
   }
   print "Угадали!\n";
}

Сначала мы задаем секретное слово, помещая его в скалярную переменную $secretword . Затем после запроса имени программа приветствует пользователя, и если введенное имя не Alex , программа запрашивает секретное слово. Этот вариант сравнивается с заданным секретным словом в операции ne . Данная оперция возвращает значение истина , если сравниваемые строки не равны. Результат сравнения управляет циклом while , который выполняет этот блок оператотов, пока сравнение не дает значение истина .

<< Предыдущая страница Содержание Наверх Следующая страница >>