Допустим теперь, что у нас припасено какое-то особое приветствие для пользователя по имени Alex , а для остальных обычное. Для этого нам нужно сравнить имя, которое было введено, со строкой Alex , и, если оно совпадает, сделать что-то особое. Давайте добавим в программу ветвь if-then-else и операцию сравнения:

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

В операции eq сравниваются две строки. Если они равны (т.е. совпадают все символы и длина строк одинакова), результатом будет истина.

Оператор if выбирает, какой блок операторов (заключенных между парными фигурными скобками) выполняется; если выражение дает в результате зачение истина , выполняется первый блок, иначе выполняется второй.

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