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

Для обработки данных формы мы подключаем модуль CGI С ПОМОЩЬЮ опера¬тора use!
# подключаем модуль для "обработки данных формы use CGI qw( :standard);
При помощи qw ( : standard) мы можем обратиться к значению элемента формы, просто указав его имя в функции рагашо. Если эту строку не указать, то к функции рагашо нужно обратиться следующим образом:
# подключаем модуль для обработки данных формы use CGI;
print "Content-type: text/html\n\n";
$s = new CGI;
$name = $s->param("name") ;
Далее мы с помощью функции defined () проверяем существование перемен¬ной $паше. Если переменная не определена, то выводим форму для ввода имени. Если переменная определена, то выводим приветствие с помощью оператора print:
print "Hello, $name";
Теперь рассмотрим возможность ввода параметра с помощью командной строки. Открываем Блокнот и набираем код:

#!/usr/bin/perl -w print "Enter name:\n";
$name = <STDIN>; print "Hello, $name";


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