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

Для примера: напишем программу, которая в зависимости от введенного пользователем числа проверяет, является ли число четным или нет. После проверки выводится соответствующее сообщение:

#!/usr/bin/perl -w
# Вьшодим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);?
# подключаем модуль для обработки данных формы use CGI qw( :standard);
print "Content-type: text/html\n\n";
$var = param ("var") ; print "<HTMLXHEAD>\n";
print "<Т1ТЬЕ>Проверка числа на четность</Т1ТЬЕ>\п"; print "</HEADXBODY>\n";
print "<В>Проверка числа на четность</B><BR><BR>\n";
# Выводим форму
print "Введите 4nano<BR>\n"; print "<FORM>\n";
print "<INPUT type=\"text\" name=\"var\">\n"; print "<INPUT type=\"submit\" value=\"OK\">\n"; print "</FORMXBR>\n"; if (defined($var)) {
if ($var /A[0-9]+$/) { if ($var%2 ~ 0) {
print "$var — Четное число";
}
else {
print "$var — Нечетное число";
}
}
else { print "Необходимо ввести число"; }
}
print "</BODYX/HTML>\n";


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