Проверка существования переменной

С помощью функции defined (<переменная>) можно проверить существование переменной. Если переменной присвоено значение, то возвращается true. Если переменная объявлена, но ей не присвоено значение, то функция воз¬вращает false. Для примера: переделаем нашу первую программу так, чтобы программа здоровалась не со всем миром, а только с нами:
#!/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 "<FORM>\n";
print "<INPUT type=\"text\" name=\"name\">\n"; print "<INPUT type=\"submit\" value=\"OK\">\n"; print "</FORM>\n";
}
print "</BODYx/HTML>\n";
При первом запуске программы появится приглашение ввести имя. Вводим свое имя (например, Николай) и нажимаем ОК. В итоге отобразится привет¬ствие:
Hello, Николай


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


Web сайты на Perl и MySql