Язык программирования Perl



              

Системы на основе HTML-шаблонов - часть 2


<html> <head> <!-- шапка HTML-страницы --> <meta http-equiv="content-type" content="text/html; charset=windows-1251"> <title>Гостевая книга</title> </head> <body> <!-- тело HTML-страницы --> <h3>Здесь Вы можете оставить свой отзыв</h3> <form method="POST"> <!-- начало HTML-формы --> <br/>Имя: <!-- 1-е поле формы --> <input name="nick" type="text" size="8" value="<%=$Request->Form('nick')%>"/> <br/>Э-почта: <!-- 2-е поле формы --> <input name="email" type="text" size="32" value="<%=$Request->Form('email')%>"/> <br/>Комментарий:<br/> <!-- 3-е поле формы --> <textarea name="comments" rows="5" cols="50"> <%=$Request->Form('comments')%> </textarea><br/> <input type="submit" value="Отправить"/> <!-- кнопка --> </form> <!-- конец HTML-формы --> <hr/> <% if($Request->Form('nick')) { %> <a href="mailto:<%=$Request->Form('email')%>"> <%=$Request->Form('nick')%> </a> пишет:<br/> <%=$Request->Form('comments')%><br/> <hr/> <% } %> <body> <html>

Обращение к значениям полей формы происходит с помощью метода Form предопределенного объекта $Request, хранящего информацию HTTP-запроса. Система Apache::ASP предоставляет программисту полный набор средств для динамического создания страниц, включая средства работы с клиентскими сеансами. Чтобы продемонстрировать возможности встроенного в шаблоны языка Perl, напишем шаблон ASP, реализующий web-интерфейс к базе данных. Perl в нем используется для извлечения из базы данных информации о моллюсках, производящих жемчужины, а также для формирования в цикле строк таблицы на основании результатов запроса. Фрагменты программы на Perl, встроенные в текст шаблона, выделены жирным шрифтом:




Содержание  Назад  Вперед