18.9. Программа: ехрп и vrfy 665

Shost 11= localhost ;

@hosts = map { S ->exchange } mx(Shost) if Sfetch mx; @hosts = (Shost) unless @hosts;

foreach my Shost (@hosts) {

print SVERB eq VRFV "Verify" : "Expand", "ing Sname at Shost (Scombo):";

Sremote = 10::Socket::INET->new( Proto => "tcp", PeerAddr => Shost, PeerPort => "smtp(25)",

unless (Sremote) {

warn "cannot connect to Shost\n"; next;

print "\n";

Sremote->autoflush(1);

# Использовать сетевые разделители строк CRLF print Sremote "HELO Sselfname\015\012"; print Sremote "SVERB Sname\015\012"; print Sremote "quit\015\012"; while (<Sremote>) {

/"220\b/ M next;

/~221\Ь/ && last;

s/250\b[\-\s]V/; print;

close(Sremote) or die "cant close socket: S!

print "\n";

Программирование

Хорош тот инструмент, который может использоваться для целей, неожиданных для его создателя.

Стивен Джонсон

Введение

Резкие изменения окружающей среды приводят к тому, что некоторые виды лучше других добывают пропитание или избегают хищников. Многие ученые полагают, что миллионы лет назад при столкновении кометы с Землей в атмосферу поднялось огромное облако пыли. За этим последовали радикальные изменения окружающей среды. Некоторые организмы - например, динозавры - не смогли справиться с ними, что привело к их вымиранию. Другие виды (в частности, млекопитающие) нашли новые источники пищи и места обитания и продолжили борьбу за существование.

Подобно тому, как комета изменила среду обитания доисторических животных, развитие Web изменило ситуацию в современных языках программирования и открыло новые горизонты. Хотя некоторые языки так и не прижились в «новом мировом порядке», Perl выдержал испытание. Благодаря своим сильным сторонам - обработке текстов и объединению системных компонентов - Perl легко приспособился к задачам пересылки информации с использованием текстовых протоколов.

Архитектура

в основе Web лежит обычный текст. Web-серверы общаются с броузерами с помощью текстового протокола HTTP (Hypertext Transfer Protocol). Многие пересылаемые документы кодируются специальной разметкой, которая называется HTML (Hypertext Markup Language). Текстовая ориентация внесла немалый вклад в гибкость, широту возможностей и успех Web. Единственным исключением на этом фоне является протокол SSL (Secure Socket Layer) - он щифрует другие протоколы (например, HTTP) в двоичные данные, защищенные от перехвата,

Web-страницы идентифицируются по так называемым URL (Universal Resource Locator). URL выглядят так:

http: www.perl.com/CPAN/ http: www.perl.com:8001/bad/mojo.html ftp: gatekeeper.dec.eom/pub/misc/netlib.tar.Z ftp: anonymous@myplace:gatekeeper.d0c.com/pub/misc/netlib.tar.Z file: /etc/motd

Первая часть (http, ftp, file) называется схемой и определяет способ получения файла. Вторая {: ) означает, что далее следует имя хоста, интерпретация которого зависит от схемы. За именем хоста следует путь, идентифицирующий документ. Путь также называется частичньш URL.

Web является системой «клиент/сервер». Клиентские броузеры (например, Netscape или Lynx) запрашивают документы (идентифицируемые по частичным URL) у Web-серверов - таких, как Apache. Диалог броузера с сервером определяется протоколом HTTP. В основном сервер просто пересылает содержимое некоторого файла. Однако иногда Web-сервер запускает другую программу для отправки документа, который может представлять собой HTML-текст, графическое изображение или иной тип данных. Диалог сервера с программой определяется протоколом CGI (Common Gateway Interface), а запускаемая сервером программа называется программой CGI или сценарием CGI.

Сервер сообщает программе CGI, какая страница была затребована, какие значения были переданы в HTML-формах, откуда поступил запрос, какие данные использовались при аутентификации и многое другое. Ответ программы CGI состоит из двух частей: заголовка, говорящего «Я передаю документ HTML», «Я передаю изображение формата GIF» или «Я вообще ничего не передаю, обращайся на такую-то страницу», и тела документа (возможно, содержащего данные GIF, обычный текст или код HTML).

Правильно реализовать протокол CGI нелегко, а ошибиться проще простого, поэтому мы рекомендуем использовать превосходный модуль CGI.pm Линкольна Штейна (Lincoln Stein). Модуль содержит удобные функции для обработки информации, полученной от сервера, и подготовки ответов CGI, ожидаемых сервером. Это чрезвычайно полезный модуль был включен в стандартную поставку Perl версии 5.004 вместе с вспомогательными модулями (например, CGI::Carp или CGI::Fast). Использование модуля демонстрируется в рецепте 19.1.

Некоторые Web-серверы содержат встроенный интерпретатор Perl, что позволяет генерировать документы на Perl без запуска нового процесса. Системные издержки на чтение неизменившейся страницы пренебрежимо малы для страниц с редкими обращениями (даже порядка нескольких обращений в секунду). Однако вызовы CGI существенно замедляют компьютер, на котором работает Web-сервер. В рецепте 19.5 показано, как работать с mod perl, встроенным интерпретатором Perl Web-сервера Apache, чтобы пользоваться преимуществами программ CGI без издержек, связанных с ними.

За кулисами

Программы CGI вызываются каждый раз, когда Web-серверу требуется сгенерировать динамический документ. Необходимо понимать, что программа CGI