Своеобразие русской архитектуры: Основной материал – дерево – быстрота постройки, но недолговечность и необходимость деления...
Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
Топ:
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Интересное:
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
 2022-12-30 |
 13 |
из
5.00
|
Заказать работу |
|
|
|
|
Если бы возможности CGI-скриптов ограничивались созданием статических форм, то это было бы грустно. Настоящая сила CGI состоит в придании Webстраницам динамики. В главе 11 вы рассматривали программу на языке C++, которая создает скрипт, выводящий наэкран значения переменных окружения. Следующий скрипт на языкеPerl решает идентичную задачу. Тем не менее, вы убедитесь, насколько проще выглядит программа на языке Perl, чем аналогичнаяС++ версия, показанная в главе 11:
print <<HTML; Content-type: text/html <HTML> <HEAD><TITLE>Echo Environment Variables </TITLE></HEAD> <BODY> <H3><CENTER> Environment Variables:<HR> </CENTER></H3> for $env (sort keys %ENV) { print "<LI>$env is $ENV{$env}<BR>"; } print "</BODY></HTML>\n"Этот пример создает статический заголовок, и затем выводит значения переменных окружения скрипта, используя форматированныйHTML-документ. Скрипт показывает, как использовать конструкцию<здесь-документ> совместно с традиционной функцией print.
ДОСТУП К СТРОКЕ ЗАПРОСОВ
В главе 11 вы видели, что простым способом передачи данныхCGI в скрипт является использование строки запросов. Броузер передает данные HTTP-серверу как часть URL. В свою очередь серверрассматривает все, что следует за знаком вопроса (?) в URL, какстроку запроса. CGI-скрипт может получить доступ к строке запросов двумяспособами. Либо сервер передает строку запросов скрипту, используя аргументы командной строки, либо сервер присваивает значение строки запросов переменной окружения QUERY_STRING. Например, можно возвратиться к рассмотренному выше скрипту, которыйвыводит на экран значения переменных окружения, и вызвать скрипт,используя строку запросов.
ДЕКОДИРОВАНИЕ ФОРМ HTML С ИСПОЛЬЗОВАНИЕМ МЕТОДА GET
|
|
Как вы увидели, использование подсказки ISINDEX для создания одиночного запроса достаточно просто. Но для получения отпользователя больше чем одного значения необходимо использоватьформы. Следующий скрипт на языке Perl генерирует форму. Используяметод GET, скрипт дает команду броузеру послать значения запросакак часть URL, так же как при использовании ISINDEX. Разница между использованием GET и ISINDEX состоит в том, что при использовании метода GET броузер может соединить несколько величин полейв одну строку запросов, разделяя поля с помощью амперсанда (&).Для того чтобы скрипт мог определять значения полей, броузервключает имена полей в строку запроса. Например, если база данных содержит три поля (имя, возраст и день рождения) с такимизначениями (Bob, 27, 11-1-68), то строка запросов будет содержать значения полей в следующем формате:<name=Bob&age==27&birthday=l 1-1-68>. В следующем примере скриптдекодирует поля и выводит на экран их значения с помощью создания HTML-формы:
($cgi_bin, $cgi_script) = ($0 =~ m:(.*)[/\\](.*):); $query = $ENV{QUERY_STRING}; if ($query eq '') { # сгенерируем форму print <<FORM; Content-type: text/html <HTML> <HEAD><TITLE>Sample GET Form </TITLE></HEAD> <BODY> What is your query? <P> <FORM METHOD="GET" ACTION="$cgi_script"> A checkBox. <BR> <INPUT TYPE="checkbox" NAME="chek" VALUE="on"><P> A radio button set. <BR> <INPUT TYPE="radio" NAME="button" VALUE="1"> 1<BR> <INPUT TYPE="radio" NAME="button" VALUE="2"> 2<BR> <INPUT TYPE="radio" NAME="button" VALUE="3"> 3<P> A data entry field<BR> <INPUT NAME="field"><P> Send the data.<BR> <INPUT TYPE="submit"> </FORM> </HTML> FORM } else { # распечатаем результаты print "Content-type: text/html\n\n"; print "<HTML>\n"; print "<HEAD><TITLE>GET Form Result</TITLE></HEAD>\n" print "<BODY>\n"; print "Your query values:<P>\n"; @fields = split('&', $query); forech (@field) { Switch: { /^check=(.*)/ && do { $check = $1; last Switch; }; /^button=(.*)/ && do { $button = $1; last Switch; }; /^field=(.*)/ && do { $field = $decode(1); last Switch; }; } } print "Check Box: $check<BR>\n"; print "Radio Button: $button<BR>\n"; print "Data Field:", &html($field), "<BR>\n"; print "<HTML>\n"; } sub decode{ local ($value) = @_; $value =~ s/\+/ /g; $value =~ s/%([0-9A-H]{2})/pack('C',hex($1))/eg; return $value; } sub html { local ($value) = @_; $value =~ s/</</g; $value =~ s/>/>/g; return $value' }Обратите внимание на первую строку скрипта:
|
|
Это выражение выглядит похожим на аналогичное выражение впредыдущем примере. Однако в данном случае скрипт разделяет путьна каталог и имя файла. В этом примере один и тот же скрипт создает форму и обрабатывает ее вывод, что достаточно нетрудно выполнить. Такой способ рекомендуется для обработки форм, потомучто концентрирует всю обработку в одном месте. Скрипт определяет, создавать ли форму или обработать запрос,в зависимости оттого, поступил ли запрос от пользователя. Для обработки строки запросов скрипт разделяет запрос на поля, используя функцию split. Далее скрипт сравнивает поля запроса сожидаемыми именами полей. Рассмотрим следующий пример:
forech (@field) { Switch: { /^check=(.*)/ && do { $check = $1; last Switch; };Обычная форма цикла foreach включает переменную {$VAR). Еслицикл foreach опускает эту переменную, то Perl использует переменную по умолчанию $_. Аналогично, оператор регулярного выраженияобычно выглядит следующим образом $VAR=~/PATTERN/. Если переменная в выражении опущена, Perl использует $_ как переменную поумолчанию, в результате чего цикл и регулярное выражение соответствуют друг другу. Однако если слишком полагаться на переменныепо умолчанию, то код на языке Perl может получиться неясным. Вданном же случае использование переменных, определенных по умолчанию, делает код более коротким и лучше читаемым. Далее обратите внимание на регулярное выражение, имеющееформу /^field=(. *)/. Данное выражение указывает на необходимость начать поиск от начала строки, что предотвращает совпадения в середине имени другого поля. Иными словами, имя поля и знакравенства (=) должны соответствовать сами себе. Остающаяся частьрегулярного выражения соответствует значению поля и извлекает егов переменную $1. Поскольку $1 представляет собой временную переменную, то скрипт копирует ее в переменную с именем для каждогополя. Скрипт использует подпрограмму decode для декодированиясимволов из полей, которые были закодированы броузером. Регулярные выражения, используемые подпрограммой декодирования, рассматривались в предыдущем примере. Наконец, скрипт использует подпрограмму html, чтобы закодировать значения данных для вывода их в тексте HTML. Скрипт можетпослать большую часть текста броузеру в виде HTML-документа безвыполнения какой-либо обработки. Однако поскольку HTML использует угловые скобки (<>) для кодирования НТМL-входов, скриптдолжен закодировать эти скобки, используя последовательности HTML< и >.
|
|
|
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!