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

Как видно из примера, один условный оператор можно вложить в другой. Более того, блока else может не быть совсем:
print "$var — Четное число" if ($var%2 = 0);
Кроме того, оператор if...else позволяет проверить сразу несколько усло¬вий. Рассмотрим это на примере:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# подключаем модуль для обработки данных формы use CGI qw( :standard);
print "Content-type: text/html\n\n";?
$os = param("os"); print "CHTMLXHEAD>\n";
print "<Т1ТЬЕ>Проверка выбранного элемента из списка</Т1ТЬЕ>\п"; print "c/HEADXBODY>\n";
print "сВЖакой операционной системой вы пользуетесь ?c/BXBRXBR>\n";
# Выводим форму
print "<FORM>\n";
print "<SELECT name=\"os\">\n";
print "cOPTION value=\"0\" selected>He выбрано\п";
print "COPTION value=\"l\">Windows 98\n";
print "COPTION value=\"2\">Windows ME\n";
print "COPTION value=\"3\">Windows XP\n";
print "COPTION value=\"4\">flpyraH\n";
print "c/SELECT>\n";
print "CINPUT type=\"submit\" value=\"Выбрал\">\n"; print "c/FORM>\n"; if (defined($os)) {
if ($os=="l") { print "Вы выбрали — Windows 98"; }
elsif ($os=="2") { print "Вы выбрали — Windows ME"; }
elsif ($os=="3") { print "Вы выбрали — Windows XP"; }
elsif ($os=="4") { print "Вы выбрали — Другая”; }
elsif ($os=="0") { print "Вы не выбрали операционную систему"; }
else {
print "Мы не смогли определить вашу операционную систему";
}
}
print "с /BODYX /HTML> \п";
С помощью оператора elsif мы можем определить выбранное значение в списке и вывести соответствующее сообщение.



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