Оператор unless

Оператор unless имеет следующий формат:
unless (слогическое выражение>) {
СБлок, выполняемый, если условие ложно>
}
[else {
СБлок, выполняемый если все условие истинно }]
Если блок состоит из одного выражения, то можно воспользоваться следую¬щим форматом:
СБлок, выполняемый, если условие ложно> unless (слогическое выражение>);
Такой же результат можно получить, если указать знак ! перед логическим выражением в операторе if.. .else:
if (!<Логическое выражение>) {
<Блок, выполняемый, если условие истинно>
}
Приведен пример проверки введенного значения с помощью оператора unless.
#!/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 "<FORM>\n";
print "CINPUT type=\"text\" name=\Mvar\M>\n"; print "<INPUT type=\"submit\" value=\"OK\">\n"; print "</FORM>\n"; unless ($var /A[0-9]+$/) {
print "Необходимо ввести число\п";
}
else {
print "Число введено правильно\пм;
}
print "</BODYX/HTML>\n";