19.14. Программа: chemiserie 701

print h2( Options ),

print p( How Many , textfield( sweater.count ))

print p( Size , popijp menij( sweater size , \@sizes)),

print p( Color , popup menu( sweater color , \@colors)),

shop menu(),

n Страница для подтверждения текущего заказа sub checkout {

my Sactive = shift,

return unless Sactive

print h1( Order Confirmation ),

print p( You ordered the following ),

print order text(),

print p( Is this righf Select Card to pay for the items ,

or Shirt or Sweater to continue shopping ), print p(to page( Card ),

to page( Shirt ),

to page( Sweater )),

# Страница для ввода данных кредитной карты sub credit card {

my Sactive = shift,

my @widgets = qw(Name Addressi Address2 City Zip State Phone Card Expiry)

unless (Sactive) {

print map { hidden($ ) return,

©widgets.

print pre(p( Name

p( Address

P( City

P( Zip

p( State

p( Phone

p( Credit Card #

p( Expiry

, textfield( Name )),

textfield( Addressi )),

textfield( Address2 ))

textfield( City )),

textfield( Zip )),

textfield( State )),

textfield( Phone ))

textfield( Card )),

textfield( Expiry ))),

print p( Click on Order to order the items to return shopping ),

Click on Cancel

print p(to page( Order ), to page( Cancel )),

продолже7ше

sub calculate price {

my Sshirts = param("shirt count") 1 0, my Ssweaters = param(sweater count") 0, return sprintf("\S%.2f", Sshirts*33 + Ssweaters * 49.99);

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

Пример 19.9 (продолжение)

# Страница для завершения заказа, sub order {

my Sactive = shift;

unless (Sactive) { return;

# Проверка данных кредитной карты print hi("Ordered!");

print p(You have ordered the following toppings ); print order text(),

print p(defaults("Begin Again"));

# Возвращает HTML-код текущего заказа ("Вы заказали . ") sub order text {

my Shtml = ;

if (param("shirt count")) {

Shtml .= pCYou have ordered , param("shirt count"), " shirts of size ", param("shirt size"), " and color ", param("shirt color"), ".");

If (param("sweater count )) {

Shtml = pCYou have ordered , param(sweater count), sweaters of size ", param("sweater size), " and color , param("sweater color), .");

Shtml = p( Nothing! ) unless Shtml;

Shtml = pCFor a total cost of , calculate price());

return Shtml;

Автоматизация в Web

...Сеть одновременно чувственная и логическая, элегантная и изобилующая смыслом - это стиль, это основа литературного искусства.

Роберт Льюис Стивенсон, «О некоторых технических элементах стиля в литературе»

Введение

в главе 19 «Программирование CGI» основное внимание уделяется ответам на запросы броузеров и генерации документов с применением CGI. В этой главе программирование для Web рассматривается с другой стороны: вместо того чтобы общаться с броузером, вы сами притворяетесь броузером, генерируете запросы и обрабатываете возвращаемые документы. Для упрощения этого процесса мы будем широко использовать модули, поскольку правильно реализовать низкоуровневые сетевые протоколы и форматы документов непросто. Поручая всю трудную работу модулям, вы концентрируетесь на самом интересном - вашей собственной программе.

Упоминаемые модули находятся по следующему URL:

http: www.perl.com/CPAN/modules/by-category/15 World Wide Web HTML HTTPJCGI/

Здесь хранятся модули для вычисления контрольных сумм кредитных карт, взаимодействия с API Netscape или сервера Apache, обработки графических карт (image maps), проверки HTML и работы с MIME. Однако самые большие и важные модули этой главы входят в комплекс модулей libwww-perl, объединяемых общим термином LWP. Ниже описаны лишь некоторые модули, входящие в LWP.

Модули HTTP:: и LWP:: позволяют запрашивать документы с сервера. В частности, модуль LWP::Simple обеспечивает простейший способ получения документов. Однако LWP::Simple не хватает возможности обращаться к отдельным компонентам ответов HTTP. Для работы с ними используются модули HTTP::Request, HTTP::Response и HTTP::UserAgent. Оба набора модулей демонстрируются в рецептах 20.1-20.2 и 20.10.