Для создания клиента воспользуемся DELPHI, примеры написаны под версию 6, однако можно воспользоваться любой версией (от 4 до 7-й), которая поддерживает следующие  свободно распространяемые компонеты: RxLib для создания некоторых элементов интерфейса и временных таблиц в памяти и Indy (Internet direct) для поддержки http (https) протокола (обычно поставляется вместе с версиями 6 и 7). Установка этих компонентов обычно не вызывают никаких трудностей.
    Создаем новое приложение средствами DELPHI. Объявляем переменную HTTP типа TIdHTTP, при обработке создания главной формы вызываем конструктор для этого объекта, при закрытии - соответственно деструктор.

use  ....... IdHTTP; ...... private     HTTP : TIdHTTP; ....... procedure TfExample01.FormCreate(Sender: TObject); begin   HTTP := TIdHttp.Create(Self); end; ........ procedure TfExample01.FormDestroy(Sender: TObject); begin   HTTP.Free; end;

    В случае ошибки генерируется исключение - причем ошибка может возникнуть как из-за потери связи или отсутствия сервера в сети (если заменить your_server на your_server1 то появится ошибка Socket Error # 11001), так и от ошибки, возвращаемой сервером (например если мы заменим /exampleone на /exampleone1 то появится сообщение 404 Not found). Если все пройдет нормально, то в поле memReceive вы увидите копию текста memPost, если нет - то текст ошибки.

Нормальная работа программы - сообщение возвращено сервером.	Ошибка - сервер не найден.	Ошибка - не найден модуль или точка входа. О причинах смотрите в файлах лога.

    Если у вас произошла ошибка то посмотрите файлы /usr/local/apache/logs/access_log и /usr/local/apache/error_log. Они обычно помогают диагностировать ее причину. И не забывайте перезапускать сервер после каждого обновления текстов модулей и изменений в конфигурации!
Таким образом мы смогли передать сообщение на сервер и принять ответ от него. Конечно, практической пользы от этого примера немного - это своеобразный тест для диагностики работы сервера  и правильной установки всех компонентов.
    Вы можете скачать тексты клиента и сервера отсюда :

• Исходники сервера
• Исходники клиента
• Фрагмент файла настройки (добавьте его в конец вашего файла httpd.conf) - он один для всех примеров.
• Файл PerlPreRequire.pl
• Скомпилированный файл клиента (если вам лень возиться, но хочется увидеть результат работы программы), предназначен для работы с нашим сервером http://www.bizonline.ru.

Пример №2

    Итак мы получили весьма бесполезную программу. Попробуем немного преобразовать ее, чтобы она могла очень много, буквально все что можно.

Сервер

    Для этого нужно совсем ничего, копируем файл ExampleOne.pm в ExampleTwo.pm :

root> cd /usr/local/apache/cgi-bin/ThreeTier root> cp ./ExampleOne.pm ./ExampleTwo.pm

    Вносим в ExampleTwo.pm небольшие изменения (выделены цветом):

package ThreeTier::ExampleTwo; use strict; use warnings; sub handler {      my $r = shift;      Apache->request( $r );      $r->send_http_header('text/plain');      if( $r->method ne 'POST')      {            print "Неверный метод вызова";            return 0;      }       my $req = <STDIN>;       print eval( $req ); } 1;

    В первой строке меняем имя пакета на ThreeTier::ExampleTwo так как поменялось имя файла, а в последней строчке процедуры handler  выводим не строку запроса POST, а результат выполнения строки запроса как выражения Perl. Чтобы сервер смог увидеть этот модуль добавляем несколько строк в httpd.conf:

<Location /exampletwo>    SetHandler perl-script    PerlHandler ThreeTier::ExampleTwo </Location>

Клиент

    Теперь делаем минимальные изменения в программе - клиенте:

procedure TfExample01.BitBtn1Click(Sender: TObject); var   tmpStream : TStringStream; begin   tmpStream := TStringStream.Create('');   memReceive.Text := '';   try     HTTP.Post('http://your_server/exampletwo', memPost.Lines, tmpStream);     memReceive.Text := tmpStream.DataString;   except   on E : Exception do memReceive.Text := E.Message;   end;   tmpStream.Free; end;

    И все готово, осталось только перезапустить сервер командой /usr/local/apache/bin/apachectl restart. Но по причинам о которых чуть ниже - категорически и настоятельно рекомендуем перед этой командой вытащить из сервера все сетевые кабели  (а заодно и шнур питания). Но предположим что мы люди отважные до безрассудства и все же перезапустились. Теперь если в верхнем мемо поле написать 2+2 то после нажатия на кнопку Request мы получим ответ 4. Это уже какая никакая польза от программы - как никак удаленные вычисления! Вот некоторые примеры:

Элементарно	Чуть посложнее...	Целая процедура !
А так мы можем посмотреть что в каталогах	А так почитать файл	ОЙ...! (censured)

    Итак мы увидели что несмотря на практически безграничные возможности, этот модуль открыл огромную дыру в защите нашей системы. Такую же как например telnet без пароля. Любой шалунишка, способный ронять сервера только со стола на пол, в состоянии причинить нам массу неприятностей. Вся следующая писанина будет посвящена только тому, как найти компромисс между примером №1 и примером №2, между полной бесполезностью, но защищенностью, и полным подчинением сервера клиенту.

    Для экспериментаторов :

• Исходники сервера
• Исходники клиента
• Фрагмент файла настройки (добавьте его в конец вашего файла httpd.conf и раскомментируйте exampletwo) - он один для всех примеров.
• Файл PerlPreRequire.pl

    Никаких скомпилированных примеров под наш сервер по понятным причинам тут нету, а файл конфигурации естественно не содержит код для доступа к exampletwo. Так что не пытайтесь...

Пример №3

    Прежде чем начинать создание новой программки, подумаем насчет структуризации предаваемой и получаемой информации. Ясно что к серверу должна приходить не просто какой-то массив байт, а структурированный запрос, который сервер мог бы разбить на элементы, а затем после некоторой интерпретации выполнить только ту работу, на которую мы рассчитываем. Ни в коем случае не больше, но и не меньше. Кроме того и возвращаемые данные должны быть как-то разделены друг от друга. В этом примере мы пока поразбираемся и предложим простейшую модель синтеза на стороне клиента и парсинга на стороне сервера  некоторого, наперед неограниченного количества именованных аргументов.     Существует множество способов передать информацию вида ключ-значение.  От простейших разделителей, ограничителей,  системы кодирования запросов в http-протоколе и заканчивая всеобъемлющим и модным сейчас XML (добавим от себя и крайне громоздким). Мы пойдем по пути простейших ограничителей  (усложнить вы сможете и сами), где каждая посылка будет представлена в виде: 

arg1=vol1,arg2=vol2,arg3=vol3, ....,argX=volX,......,argN=volN,

здесь "=" и "," являются символами-разделителями, соответственно "," разделяет пары друг от друга, а "=" имя аргумента от его значения. Из этого следует что ни в строках - именах аргументов ("argX"), ни в строках - значениях ("volX") эти символы встречаться не должны. Для этого требуется некоторая трансляция символов в именах и значениях. Можно применить Base64 для каждой строки, а разделители выбрать так чтобы они  попали в запрещенный для этой кодировки набор (например # и $). В этих и последующих примерах мы поступим проще, чтобы не загромождать тексты программ - просто выберем в качестве разделителей редко используемы символы из ASCII таблицы. В дальнейшем, чтобы случайно не передать разделители на сервер просто заменим их, если они встретятся в именах или значениях на пробелы (или сформируем исключение в момент формирования строки запроса).
    A в этом примере оставим знак "," разделителем пар, а знак "=" - разделителем имен аргументов от их значений.

Клиент

    Начнем на этот раз с программы-клиента. Объявим символы-разделители как константы:

const     d_fld = '=';     d_rec = ',';

    Перед отправкой строки из мемо-поля объединим их в форматированную строку следующим образом:

for i:= 0 to memPost.Lines.Count -  1 do begin    s := s + 'args' + IntToStr(i) + d_fld + memPost.Lines[i] + d_rec; end;

    Если мы заполним  мемо-поле произвольным набором цифр то результирующая строка будет выглядеть как:

args0=234,args1=546,args2=66,args3=67,args4=324,

    Дальнейшая отправка запроса и получение ответа ничем не отличается от предыдущих примеров. За исключением того что URL в HTTP.Post будет выглядеть как

'http://11.0.0.1/examplethree'

Сервер

    Копируем файл ExampleTwo.pm в ExampleThree.pm, вносим дополнения в httpd.conf:

<Location /examplethree>    SetHandler perl-script    PerlHandler ThreeTier::ExampleThree </Location>

    Редактируем файл ExampleThree.pm, вначале поменяем имя пакета:

package ThreeTier::ExampleThree;

    Объявляем переменные-разделители (при использовании use strict все переменные, не помеченные через my или local необходимо объявлять в программе, иначе использование необъявленной переменной вызовет ошибку компиляции, и сервер вернет вам 500-ю ошибку):

use vars qw ($d_fld $d_rec);

    Теперь присваиваем этим переменным те же значения что и у клиента:

$d_fld = "="; $d_rec = ",";

    Создаем небольшую функцию разбора пришедшей строки. В качестве аргумента она получает строку с разделителями, а результатом является ссылка на хеш (массив, адресуемы не целым, а строковым индексом):

sub requestParser {     my @params = split /$d_rec/, shift;     my %args;     grep {my @param = split /$d_fld/; $args{$param[0]} = $param[1]; } @params;     return \%args; }

    В первой строчке полученная через shift строка разбивается на массив строк с помощью встроенной функции split и присваивается локальной переменной @params. В результате элементы массива @params будут содержать примерно такие данные:

$params[0] = "args0=234"; $params[1] = "args1=546"; и т.д.

    Затем объявляем хеш %args. Встроенная в Perl функция grep примененная к массиву @params выполняет заключенный в блок {} набор операторов для каждого элемента массива. Она сначала разбивает строку на две, по символу-разделителю $d_fld ("=" в этом примере) и присваивает имя аргумента нулевому элементу массива @param, а значение - первому элементу. А затем создает новый элемент хеша %args с ключом равным элементу 0 массива @param и значением, равным элементу номер один. Если вдруг имена ключей совпадут, то произойдет замена старого значения на новое, об этом следует помнить при выборе имен для аргументов! В результате мы получим хеш со следующими значениями:

$args{'args0'}='234'; $args{'args1'}='546'; и т.д.

    После этого ссылка на хеш возвращается в вызвашую программу:

return \%args;

    Поступившая от requestParser ссылка на хеш обрабатывается следующим образом:

my $args = requestParser($req); my $tmpSum = 0; my $tmpStr = ''; foreach my $par (sort keys(%$args)) {   $tmpStr .= "$par=$args->{$par}\r\n";   $tmpSum += $args->{$par}; } print "Сумма аргументов:\r\n$tmpStrРавна : $tmpSum";

    Значение ссылки присваивается локальной для handler переменной $args, объявляются две переменные, инициализируемые нолем и пустой строкой, используемые затем для формирования ответа сервера и программа входит в цикл. Для каждого ключа, отсортированного по возрастанию выполняются следующие операции: к $tmpStr прибавляются значения "имя ключа"="значение ключа" (т.е. практически повторяется операция, примененная на клиенте) плюс возврат каретки и перевод строки (своего рода разделители, служащие для форматирования вывода в окне клиента) . А в $tmpSum накапливается сумма всех значений параметров запроса. Оператор print отправляет результат клиенту. Перезапускаем сервер (apachectl restart) и смотрим на результат:

Результат работы нашего примера	То же, но  с дробными значениями	А здесь неверные значения и, соответственно, ошибка

    Конечно, этот пример имеет массу недостатков -  отсутствие проверки на соответствие аргументов числовым значениям, неформатированный вывод (вряд ли "\r\n" можно назвать форматированием), что не дает возможность вернуть массив или таблицу со значениями, да и хотелось бы заставить сервер выполнять несколько функций. Со всеми этими недостатками мы и поборемся в следующих примерах.

• Исходники сервера
• Исходники клиента
• Фрагмент файла настройки (добавьте его в конец вашего файла httpd.conf) - он один для всех примеров.
• Файл PerlPreRequire.pl
• Скомпилированный файл клиента (если вам лень возиться, но хочется увидеть результат работы программы), предназначен для работы с нашим сервером http://www.bizonline.ru.

Пример №4

    В этом разделе мы заставим сервер выполнять несколько функций из разных модулей. В сложных программах, когда количество функций и процедур насчитывает сотни и тысячи, хотелось бы группировать их в отдельных модулях, и вызывать не только по имени, но и по имени файла в которых они находятся. Для решения этой проблемы мы поступим довольно просто, введем дополнительные параметры с предопределенными именами в строку вызова. Сервер должен будет их опознать, после чего сначала попытаться найти и загрузить исполняемый файл с именем модуля, а затем вызвать функцию по ее имени и передать этой функции оставшиеся параметры. Мы совершенно свободны в выборе имен для параметров, назначим для модуля имя параметра _mod, а для функции - _func. Подчеркивания мы ввели только для того чтобы показать, что это служебные параметры и они не будут считаться аргументами для вызываемых функций, с другой стороны их проще искать отладчиком в строке вызова, если возникнут какие-то проблемы.

Клиент

    Возьмем исходник из примера 3, и добавим к нему два новых элемента - выпадающие списки cbFunc и cbMod. C их помощью мы сможем указать какой модуль мы используем и какую функцию в нем мы вызываем. cbMod будет содержать три строки:

• ExampleFourMath
• ExampleFourString
• undefined

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

• min
• max
• average
• sum
• undefined

    Некоторые из этих функций будут использоваться обоими модулями, но в разных контекстах. Например в случае выбора функции sum и модуля ExampleFourMath, должна вернуться сумма аргументов, а в случае с модулем ExampleFourString - конкатенация этих аргументов как строк.
    Теперь после цикла с созданием строки запросов добавим следующие операторы и изменения (выделены цветом):

for i:= 0 to memPost.Lines.Count -  1 do begin   s := s + 'args' + IntToStr(i) + d_fld + memPost.Lines[i] + d_rec; end; s := s + '_func' + d_fld + cbFunc.Text + d_rec; s := s + '_mod' + d_fld + cbMod.Text + d_rec; reqStream := TStringStream.Create(s); HTTP.Post('http://11.0.0.1/examplefour',      reqStream,      tmpStream);

    Другими словами, мы добавляем к строке запроса строчку вроде "_func=min,_mod=ExampleFourMath". Ну и меняем URL как обычно для нового примера. Больше ничего в клиенте менять не будем.

Сервер

    Как обычно копируем ExampleThree.pm  в ExampleFour.pm и добавляем несколько строк в httpd.conf:

<Location /examplefour>    SetHandler perl-script    PerlHandler ThreeTier::ExampleFour </Location>

    Делаем несколько небольших, но важных изменений в ExampleFour.pm:

my $args = requestParser($req); my $func = $args->{_func}; delete($args->{_func}); my $mod = $args->{_mod}; delete($args->{_mod}); unless( eval "require ThreeTier::$mod") {    print "Неизвестный модуль $mod";    Apache::exit(); } no strict 'refs'; my $f; $f = ("ThreeTier::" . $mod . "::" . $func); if(defined(&$f)) {       $f->($args); } else {    print "Неопределенная функция $func в модуле ThreeTier::$mod";    Apache::exit(); } use strict 'refs'; return 1;

    В первой строке изменений мы присваиваем переменной $func значение из хеша с ключом '_func', а затем удаляем этот элемент из массива, чтобы он не смешивался с аргументами для функций. Тоже самое мы проделаем и с переменной $mod и с элементом, определенным ключом '_mod'. Конечно модно добавить проверки, есть ли такие ключи в хеше, сделать небольшую процедуру по стиранию их из хеша по образцу, но не будем загромождать пример.
    Теперь вызываем интерпретацию (eval) строки вида "require ThreeTier::ExampleFourMath", тем самым mod_perl пытается откомпилировать и загрузить в свое пространство имен файл ExampleFourMath.pm из каталога  ThreeTier находящегося в свою очередь в одном из каталогов, указанных для Perl как по умолчанию так и директивами use lib из PerlRequire.pl. Если файл существует, и может быть откомпилирован, eval возвращает ненулевой результат и программа продолжается. В противном случае возвращается сообщение об ошибке и handler прерывает свою работу (Apache::exit()). Заметим, что просто выйти из mod_perl, используя например, halt, нельзя, это может привести к краху системы. Рекомендуется return 1, если это главный handler, или Apache::exit - в любом месте программы или вложенной функции.
    Дальше используется директива no strict 'refs'. Она необходима чтобы снять ограничение на вызов функции по имени. Так как у нас вначале модуля указано use strict - то выполнение такого вызова приведет к ошибке. И это правильно практически всегда, но только не здесь. Объявляем переменную $f которая будет хранить ссылку на функцию, определяемую строкой вида "ThreeTier::ExampleFourMath::max".  Для получения ссылки на функцию по строке применяются круглые скобки (). Ну такой уж синтаксис в Perl ! Ужас конечно, а есть еще регулярные выражения... Но как ни странно он живет и процветает последние 20 лет.
    Проверяем создалась ли ссылка if(defined(&$f)) (тоже перл !!!) и если да - то вызываем эту функцию по ссылке, передавая ссылку на хеш с аргументами $f->($args) (и тут не лучше...). А если нет, печатаем сообщение что забыли мы эту функцию создать, или не оттуда вызываем, после чего выходим из обработки. После вызова функции возвращаем на место  директиву use strict и тоже выходим.
Теперь нам надо создать файлы-модули содержащие реализацию наших функций. Файлов будет два - один ExampleFourMath.pm и второй ExampleFourString.pm. Оба они будут находиться в каталоге ..../ThreeTier. Вообще-то их можно запрятать куда-нибудь подальше от любопытных глаз в файловую систему, в том числе и не в дерево файлов Apache, но для этого придется поменять как PerlRequire.pl (добавив use lib) так, возможно и префиксы пакетов как в handler, так и в самих объявлениях пакетов. Но оставим все как есть, у нас тут все-таки примеры, а не корпоративный кластерный сервер.
    Итак фрагмент файла ExampleFourMath.pm:

package ThreeTier::ExampleFourMath; use strict; use warnings; sub sum {   my $args = shift;   my $tmpVal = 0;   my $tmpStr = '';   foreach my $par (sort keys(%$args))   {     $tmpVal += $args->{$par};     $tmpStr .= "$par = $args->{$par}\r\n";   }   print "Сумма параметров :\r\n$tmpStrРавна: $tmpVal";   Apache::exit(); } sub average {   my $args = shift;   my @pars = sort keys(%$args);   my $tmpVal = 0;   my $count = $#pars + 1;      my $tmpStr = '';   foreach my $par (@pars)   {     $tmpVal += $args->{$par};     $tmpStr .= "$par = $args->{$par}\r\n";   }   $tmpVal /= $count;   print "Среднее значение параметров :\r\n$tmpStrРавно: $tmpVal";   Apache::exit(); } ............

    Первая строка объявляет файл пакетом с именем ThreeTier::ExampleFourMath, затем следуют обычные директивы хорошо известные по предыдущим примерам, а затем реализации набора функций. Функция sum мало чем отличается от подобного алгоритма в третьем примере. Просто суммирует все значения хеша а потом выводит их список и результат. Average работает почти также, но делит сумму на количество параметров. Реализация остальных функций - тоже совершенно тривиальна (min естественно возвращает минимальное значение, а max - максимальное).
    Теперь посмотрим на ExampleFourString.pm:

package ThreeTier::ExampleFourString; use strict; use warnings; sub sum {   my $args = shift;   my $tmpVal = '';   my $tmpStr = '';   foreach my $par (sort keys(%$args))   {     $tmpVal .= $args->{$par};     $tmpStr .= "$par = $args->{$par}\r\n";   }   print "Конкатенация параметров :\r\n$tmpStrРавна: $tmpVal";   Apache::exit(); }

    В общем тоже самое, назначено новое имя пакета в первой строке, а sum вместо суммы выводит конкатенацию строк. Примерно также работает max (ищет самую длинную строку) и min (соответственно самую короткую). Целиком их коды не приводятся - если интересно, то можно скачать исходники примеров и посмотреть там. Перезапускаем Apache и смотрим результаты:

Подсчет суммы.	Среднее значение	Максимальное значение
Конкатенация строк	Самая длинная строка	Самая короткая строка
Неопределенный модуль	Неопределенная функция	Отсутствующая функция

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

• Исходники сервера
• Исходники клиента
• Фрагмент файла настройки (добавьте его в конец вашего файла httpd.conf) - он один для всех примеров.
• Файл PerlPreRequire.pl
• Скомпилированный файл клиента (если вам лень возиться, но хочется увидеть результат работы программы), предназначен для работы с нашим сервером http://www.bizonline.ru.

Пример №5

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

• разделитель полей в записи (скаляров в одномерном массиве)
• разделитель  записей в двумерном массиве
• разделитель таблиц в возвращаемом наборе данных

    Мы можем, как и в случае с запросом, использовать редкие символы ASCII,  "защитить"  случайно встречающиеся символы разделителей в строке с помощью  другого спец-символа (наподобие строки в С), преобразовывать строки в набор Base64 (или подобный ему) и использовать в качестве разделителей запрещенные в этом наборе символы или применить какой-нибудь стандартный XML формат и т.п. В общем случае Base64 позволил бы передавать не только строковые значения, но и двоичные данные, например изображения. Но опять же для простоты примера применим первый способ. В примере, который вы сможете скачать в качестве разделителей используются ASCII символы 18, 19 и 20 (десятичные значения). Для наглядности в этом тексте будут использоваться соответственно

• '='  - разделитель полей
  
• ','  - разделитель
• '!'  - разделитель таблиц
  

Сервер

    Создаем файл ExampleFive.pm по образцу ExampleFour.pm и, дополнительно, ExamleFiveGlobal.pm - в который мы вынесем все константы и функции из ExampleFive.pm, оставив там только handler. Функции из ExampleFiveGlobal будут интенсивно использоваться другими модулями, формирующими ответ сервера.
    Файл ExampleFive.pm:

package ThreeTier::ExampleFive; use strict; use warnings; use ThreeTier::ExampleFiveGlobal; sub handler {     my $r = shift;     Apache->request($r);       $r->send_http_header('text/plain');     if($r->method ne 'POST')     {         print "<br>Bad method request <br>";         return 0;     }         my $req = <STDIN>;         my $args = requestParser($req);     $strRespond = '';     callUserFunction($args);     sendOK();     return 1; }

    В четвертой строке мы импортируем функции и константы из ExampleFiveGlobal.pm:
requestParser($req) - создает хеш аргументов запроса так же как и в предыдущих примерах:

sub requestParser {     my @params = split /$d_rec/, shift;     my %args;     grep {my @param = split /$d_fld/; $args{$param[0]} = $param[1]; } @params;     return \%args; }

    А callUserFunction($args) выполняет заданную клиентом функцию:

sub callUserFunction {     my $args = shift;     my $parentPackage = 'ThreeTier::';     my $strFunc = $args->{_func};     my $strMod = $parentPackage . $args->{_mod};         unless( eval "require $strMod")     {         sendError("Неизвестный модуль $strMod");     }     no strict 'refs';     my $func = ($strMod . "::" . $strFunc);         unless(defined(&$func))     {            sendError("Неопределенная функция $strFunc в модуле $strMod");     }     $func->($args);     use strict 'refs'; }

    Оставшиеся пока неопределенными sendOK и sendError рассмотрим чуть позже.
    Заголовок ExampleFiveGlobal.pm:

package ThreeTier::ExampleFiveGlobal; use strict; use warnings; use Exporter; use vars qw(@ISA @EXPORT $d_fld $d_rec $d_set $strRespond); @ISA = qw(Exporter); @EXPORT = qw($d_fld $d_rec $d_set $strRespond &callUserFunction &requestParser              &addEmptySet &addField &addRecord &addSet &sendError &sendOK              &isDecimal &isInt); $d_fld = chr(20); $d_rec = chr(19); $d_set = chr(18); $strRespond = '';

    Вначале объявляется имя модуля package ThreeTier::ExampleFiveGlobal;, потом следуют две стандартные директивы use strict и use warnings, рассмотренные в предыдущих примерах. Следующая директива, use Exporter, служит для подключения встроенного модуля Exporter, чтобы мы могли реализовать экспорт имен в другие модули стандартными средствами. use vars объявляет глобальные переменные этого модуля : @ISA и @EXPORT служат для реализации стандартных механизмов экспорта, $d_fld,$d_rec и $d_set - переменные, содержащие разделители полей, записей и таблиц. $strRespond  - глобальная переменная-накопитель в которой хранится ответ сервера.
    @ISA = qw(Exporter) - опять же служит для удовлетворения стандартов экспорта в Perl. Массиву @EXPORT присваивается список всех функций и переменных, которые будут экспортированы из этого модуля. Если вы упустите какую-нибудь из них в этом списке, то внешние модули не смогут к  ним обратиться. Естественно, что внутренние функции и служебные переменные модуля в этом списке присутствовать не должны. Далее следует инициализация глобальных переменных.
    Теперь создадим функции, которые будут принимать скаляры, массивы и массивы массивов и преобразования в строку ответа. Ниже приводится описание функции addSet, которая получает в качестве аргумента ссылку на массив ссылок на массив (в нормальном языке - двумерный массив), преобразует ее в строку и прибавляет результат к глобальной переменной $strRespond:

sub addSet {   my ($prs) = shift;   foreach my $pr (@$prs)   {         $strRespond .= join($d_fld , @$pr) . $d_fld . $d_rec;   }   $strRespond .= $d_set; }

    Вначале мы получаем через shift передаваемый аргумент, а затем для каждой записи (ссылка на массив) выполняем процедуру join, которая берет строковое значение каждого поля (элемента массива) и объединяет их в одну строку используя указанный нами разделитель. Поскольку мы используем ограничители, а не разделители (так удобнее будет разбивать строки на массивы данных на стороне клиента), то добавляем в конце ограничитель для последнего поля и ограничитель записи для одномерного массива. В конце прибавляем к результирующей строке ограничитель таблицы. Пример работы этой функции - если мы передадим указатель на массив :

1  2  3  4  5  6  7  8  9 11 12 13

то получим результат:

1=2=3=,4=5=6=,7=8=9=,11=12=13=,!

    Иногда вместо двумерного массива надо передать одномерный (или запись). Для этого служит функция addRecord, она принимает ссылку на массив и выдает строку, содержащую таблицу с одной строкой:

sub addRecord {     my $pr = shift;            $strRespond .= join($d_fld , @$pr) . $d_fld . $d_rec . $d_set; }

    Аргумент:

1 2 3 4 5 6 7

Результат:

1=2=3=4=5=6=7=,!

    Для передачи скаляра используется add Field:

sub addField {     $strRespond .= shift() . $d_fld . $d_rec . $d_set; }

    Аргумент:

1

    Результат:

1=,!

    Для передачи пустой таблицы служит addEmptySet, которая просто прибавляет к $strResond строку - "=,!".
    Теперь, вызывая эти функции несколько раз, мы можем сформировать довольно сложный по структуре ответ сервера клиенту.
Но осталась еще одно небольшое дело - обработка ошибок на сервере. До этого мы отсылали простую неформатированную строку и в общем случае невозможно было определить нормальный это ответ, или произошел какой-то сбой. Теперь мы можем условиться, что первая таблица будет содержать код статуса со строкой ошибки. Например, если сервер отработал корректно, то в первом поле первой записи содержится строка "OK", а если нет - то в ней находится строка "Error", а в следующем поле - строковое описание ошибки. Все остальные наборы будут следовать за первой таблицей. Создадим функцию sendOK:

sub sendOK {     print 'OK' . $d_fld . $d_rec . $d_set . $strRespond; }

    Которая прибавляет в начало строки ответа "OK=,!" и отправляет ответ клиенту.
    И функцию sendError которая принимает любую строку:

sub sendError {     $strRespond = '';     print 'Error' . $d_fld . shift() . $d_fld . $d_rec . $d_set;     Apache::exit(); }

      Она обнуляет результирующую строку, отправляет клиенту сообщение типа "Error=Строка ошибки=,!", и выходит из обработчика.
    Добавим в ExampleFiveGlobal пару полезных функций isInt и isDecimal  которые позволяют определить является ли значение некоторой переменной соответственно целым или дробным числом (они будут полезны для генерации ошибок, если мы передадим серверу неверные аргументы):

sub isDecimal {     return ($_[0] =~ m/^\s*[-+]?\d+\.?\d*\s*$/); } sub isInt {     return ($_[0] =~ m/^\s*[-+]?\d+\s*$/); }

    Теперь можно перейти к созданию функций,  которые будут обрабатывать наши данные. В этом примере будут добавлены еще 3 модуля  - ExampleFiveField.pm, ExampleFiveRecord.pm и ExampleFiveSet.pm. Первый из них содержит функции возвращающие скаляр, второй - одномерный массив произвольного размера и третий - таблицу с произвольным количеством строк и столбцов.
    Начнем с ExampleFiveField:

package ThreeTier::ExampleFiveField; use strict; use warnings; use ThreeTier::ExampleFiveGlobal; sub sum {   my $args = shift;   sendError('Первое слагаемое не является цифрой !') unless(isDecimal($args->{add_1}));   sendError('Второе слагаемое не является цифрой !') unless(isDecimal($args->{add_2}));   addField($args->{add_1} + $args->{add_2});        } .........................................

    Заголовок файла обычный, только добавлен импорт нашего глобального модуля use ThreeTier::ExampleFiveGlobal.  Разберем функция sum, которая должна либо вернуть нам сумму двух аргументов, либо строку ошибки. Вначале проверяется являются ли переданные функции аргументы цифровыми (isDecimal), а  если нет, то возвращается строка ошибки через sendError. В случае успеха проверок, клиенту отсылается значение суммы аргументов. Оно содержится в первом поле первой записи второй таблицы, так как в первой таблице передается значение статуса через вызов sendOK в handler. Остальные функции этого модуля max, min и average действуют аналогично.
    Попробуем вернуть одномерный массив.

package ThreeTier::ExampleFiveRecord; use strict; use warnings; use ThreeTier::ExampleFiveGlobal; sub arProgress {   my $args = shift;   sendError('Начальное значение не является цифрой !') unless(isDecimal($args->{add_1}));   sendError('Шаг итерации не является цифрой !') unless(isDecimal($args->{add_2}));   sendError('Количество итераций не является цифрой !') unless(isDecimal($args->{add_3}));   sendError('Количество итераций должно быть больше 0 !') if($args->{add_3} < 1);   sendError('Количество итераций должно быть целым !') unless(isInt($args->{add_3}));   sendError('Количество итераций должно быть меньше 1000 !') if($args->{add_3} >= 1000);   my @res = ();     for( my $i = 0; $i < $args->{add_3}; $i++ )   {     push @res, $args->{add_1} + $i * $args->{add_2};   }     addRecord(\@res); } .........................................

    Файл ExampleFiveRecord содержит 3 функции - arProgress - которая вычисляет по начальному значению, шагу и количеству итераций элементы арифметической прогрессии, geoProgress - геометрическую прогрессию, а fibonacci - числа ряда Фибоначчи. Разберем только первую из них - arProgress - остальные в общем аналогичны ей. Вначале через shift получаем ссылку на хеш аргументов. Затем проверяем являются ли они числами, проверяем заданное количество итераций ($args->{add_3})- оно должно быть > 0 и меньше например 1000, чтобы не загружать сервер и, кроме того, быть целым. Количество итераций нужно проверять очень внимательно, т.к. можно попасть в очень большой цикл и в результате строка ответа займет огромное количество памяти сервера. Объявляем пустой массив @res, и в цикле добавляем в него полученные значения (push). addRecord(\@res) добавляет к результирующей строке таблицу с одной записью, полученную из ссылки на массив, после чего sendOK из ExampleFive::handler отсылает результат и статус  клиенту.
    Функции последнего модуля ExampleFiveSet.pm возвращают таблицы:

package ThreeTier::ExampleFiveSet; use strict; use warnings; use ThreeTier::ExampleFiveGlobal; sub arTable {   my $args = shift;   sendError('Кол-во по горизонтали не является целым числом !') unless(isInt($args->{add_1}));   sendError('Кол-во по вертикали не является целым числом !') unless(isDecimal($args->{add_2}));   sendError('Количество горизонтали должно быть меньше 50 но больше 1!')            if(($args->{add_1} >= 50) || ($args->{add_1} <= 0));   sendError('Количество вертикали должно быть меньше 50 но больше 1!')            if(($args->{add_2} >= 50) || ($args->{add_2} <= 0));              my @res = ();     my @rec = ();   push @rec, '';   for( my $i = 1; $i <= ($args->{add_1}); $i++ )   {         push @rec, $i ;   }   push @res, \@rec;       for( my $j = 1; $j <= ($args->{add_2}); $j++ )   {     my @rec = ();     push @rec , $j;     for(my $i = 1; $i <= ($args->{add_1}); $i++ )     {         push @rec, $i + $j;         }     push @res, \@rec;   }     addSet(\@res); } .........................................

    Он содержит 2 функции - arTable и geoTable. Каждая из этих функций принимает 2 аргумента - размер по вертикали и размер по горизонтали. В результате работы первой из них возвращается таблица сложения, а второй - таблица умножения. Мы рассмотрим только arTable так как geoTable практически полностью подобна ей. Заголовок обычный для наших примеров. Проверки на целое и интервал значений тоже достаточно просты. Создаем пустой массив @res в котором будут сохраняться ссылки на массивы рядов. На стороне клиента, мы будем отображать результат в стандартном объекте TStringGrid, поэтому вместе со значениями, хотелось бы вернуть и строки для подписи заголовков рядов и колонок. Для этого создаем еще один пустой массив @rec и заполняем его значениями от 1 до $args->{add_1}, после чего добавляем ссылку на  него к результирующему массиву @res. Затем формируем двойной цикл от 1 до $args->{add_1} и $args->{add_2}. Во внешнем цикле формируем пустой массив, заполняем его значениями сумм счетчиков, и затем ссылку на заполненный массив добавляем к результирующему массиву. Кроме того для нумерации рядов первым элементом пустого массива становится значение счетчика  внешнего цикла (push @rec, j;). Вызов addSet  преобразует ссылку на результирующий массив в строку. После чего handler отсылает ответ клиенту.
    Добавляем в конец httpd.conf строки:

<Location /examplefive>    SetHandler perl-script    PerlHandler ThreeTier::ExampleFive </Location>

    Перезапускаем сервер:

root> /usr/local/apache/bin/apachectl restart

TConnector = class   private     HTTP : TIdHTTP;     Composer : TRequestComposer;     Parser : TRespondParser; ....................................