Оператор ветвления if...else

Оператор ветвления мы уже использовали ранее в наших примерах, напри¬мер, чтобы узнать, определена ли переменная. Если переменная определена, функция defined о возвращает значение true, это условие можно проверить, используя оператор ветвления if.. .else:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# подключаем модуль для обработки данных формы use CGI qw( :standard);
print "Content-type: text/html\n\n";
$name = param("name"); print "<HTMLXHEAD>\n";
print "<Т1ТЬЕ>Первая программа</Т1ТЬЕ>\п";
print "</HEADXBODY>\n"; if (defined($name)) { print "Hello, $name";
}
else {
print "Введите ваше имЖВЮЛп"; print ,r<FORM>\n" ;
print "<INPUT type=\"text\" name=\"name\">\n"; print "<INPUT type=\"submit\" value=\"OK\">\n"; print "</FORM>\n";
}
print "</BODY></HTML>\n";
Обратите внимание, что логическое выражение не содержит операторов сравнения:
if (defined($name)) {
Проверка на равенство выражения значению true (Истина) выполняется по умолчанию.
Оператор ветвления if.. .else имеет следующий формат:
if (<Логическое выражение>) {
<Блок, выполняемый, если условие истинно>
}
[elsif (<Логическое выражение>) {
<Блок, выполняемый, если условие истинно>
[else {
<Блок, выполняемый, если все условия ложны>
}]
Если блок состоит из одного выражения, то можно воспользоваться следую¬щим форматом:
<Блок, выполняемый, если условие истинно> if (<Логическое выражение>);


Страница: 1 | 2 | 3