692 Глава 19 • Программирование CGI Пример 19.7 (продолжение)

pCPlease select а flavor; ", textfieldCflavor", $tasty)), end form(), hr();

exit;

>

my Scookie = cookie(

-NAME => Scookname, -VALUE => Sfavonte, -EXPIRES => +2y",

print header(-COOKIE => Scookie),

start html("Ice Cookies, #2"), hICHello Ice Cream"),

p("You chose as your favorite flavor Sfavonte,");

> Смотри также-

Документация по стандартному модулю CGI.

19.11. Создание устойчивых элементов

Проблема

Вы хотите, чтобы по умолчанию в полях формы отображались последние использованные значения. Например, вы хотите создать форму для поисковой системы наподобие AltaVista {http: xmm.altavista.corn), где над результатами отображаются искомые ключевые слова.

Решение

Создайте форму с помощью вспомогательных функций HTML, которые автоматически заносят в поле предыдущее значение;

print textfield("SEARCH"), # Предыдущее значение SEARCH

# используется по умолчанию

Комментарий

в примере 19.8 приведен простой сценарий для получения информации о пользователях, зарегистрированных в настоящее время.

Пример 19.8. who.cgi

#!/usr/bin/perl -wT

# who.cgi - вызвать who(1) для пользователя и отформатировать результат SENV{IFS>=";

SENV{PATH>=/bin;/usr/bin; use CGI qw(.standard).

print pre($html):

>

print end html();

Функция textf leld генерирует HTML-код для текстового ноля с именем параметра WHO. После вывода формы мы проверяем, было ли присвоено значение параметру WHO, и если было - ищем в результатах who строки данного пользователя.

> Смотри также-

Документация по стандартному модулю CGI; рецепты 19.4; 19.7.

19.12. Создание многостраничного сценария CGI

Проблема

Требуется написать сценарий CGI, который бы возвращал броузеру несколько страниц. Допустим, вы хотите написать сценарий CGI для работы с базой данных продуктов. Он должен выводить несколько форм: общий список продуктов, формы для добавления новых и удаления существующих продуктов, для редактирования текущих атрибутов продуктов и т. д. Многостраничный сценарий CGI образует простейщий вариант «электронного магазина».

Решение

Сохраните информацию о текущей странице в скрытом поле.

и Вывести поисковую форму

print headerO, start html("Query Users"), h1("Search");

print start form(), p("Which user", textfield("WHO")), submitO, end forn();

tt Вывести результаты поиска Sname = param("WHO"); if ($name) {

print h1("Results");

$html = " ;

# Вызвать who и построить текст ответа foreach (who) {

next unless /"$name\s/o, # Только строки, совпадающие с $name

s/&/&/g;

s/</&lt;/g;

s/>/&gt;/g,

$html .= $ ;

# Если пользователь не найден, вывести сообщение $html = Shtml "$name is not logged in".

Комментарий

Модуль CGI позволяет легко генерировать устойчивые скрытые поля. Функция hidden возвращает HTML-код скрытого элемента и использует его текущее значение в том случае, если ей передается только имя элемента:

use CGI qw(.standard), print hiddenCbacon");

Отображаемая страница («Общий список продуктов», «Список заказанных продуктов», «Подтверждение заказа» и т. д.) выбирается по значению скрытого поля. Мы назовем его . State, чтобы избежать возможных конфликтов с именами других полей. Для перемещения между страницами используются кнопки, которые присваивают . State имя новой страницы. Например, кнопка для перехода к странице «Checkout» создается так:

print subnit(-NAME => ".State", -VALUE => "Checkout");

Для удобства можно создать вспомогательную функцию:

sub to page { return submit( -NAME => ".State", -VALUE => shift ) >

Чтобы выбрать отображаемый код, достаточно проверить параметр . State:

Spage = рагап(".State") "Default";

Код, генерирующий каждую страницу, размещается в отдельной подпрограмме. Вообще говоря, нужную подпрограмму можно выбирать длинной конструкцией if. . .elsif. ..elsif:

if (Spage eq "Default") { front page();

> elsif (Spage eq "Checkout") {

checkoutO;

> else {

no such page(); # Если .State ссылается на несуществующую страницу

Получается некрасивое, громоздкое рещение. Вместо этого следует использовать хэщ, ассоциирующий имя страницы с подпрограммой. Это еще один из вариантов реализации С-подобной конструкции switch на Perl.

%States = (

Default => \&front page,

Shirt => \&shirt,

Sweater => \&sweater,

Checkout => \&checkout,

Card => \&credit card,

Order => \&order,

Cancel => \&front page,

if ($States{$page}) {