3-tier своими руками

    Для создания клиента воспользуемся 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. Они обычно помогают диагностировать ее причину. И не забывайте перезапускать сервер после каждого обновления текстов модулей и изменений в конфигурации!
Таким образом мы смогли передать сообщение на сервер и принять ответ от него. Конечно, практической пользы от этого примера немного - это своеобразный тест для диагностики работы сервера  и правильной установки всех компонентов.

Пример №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 = ;       print eval( $req ); } 1;

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

SetHandler perl-script    PerlHandler ThreeTier::ExampleTwo

Клиент

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

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. Это уже какая никакая польза от программы - как никак удаленные вычисления!
    Итак мы увидели что несмотря на практически безграничные возможности, этот модуль открыл огромную дыру в защите нашей системы. Такую же как например telnet без пароля. Любой шалунишка, способный ронять сервера только со стола на пол, в состоянии причинить нам массу неприятностей. Вся следующая писанина будет посвящена только тому, как найти компромисс между примером №1 и примером №2, между полной бесполезностью, но защищенностью, и полным подчинением сервера клиенту.
    Никаких скомпилированных примеров под наш сервер по понятным причинам тут нету, а файл конфигурации естественно не содержит код для доступа к 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:

SetHandler perl-script    PerlHandler ThreeTier::ExampleThree

    Редактируем файл 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" можно назвать форматированием), что не дает возможность вернуть массив или таблицу со значениями, да и хотелось бы заставить сервер выполнять несколько функций. Со всеми этими недостатками мы и поборемся в следующих примерах.

Пример №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:

SetHandler perl-script    PerlHandler ThreeTier::ExampleFour

    Делаем несколько небольших, но важных изменений в 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 и смотрим результаты.
    Осталось еще много проблем, которые надо решить, например типизация, форматированный вывод и парсинг результатов, но мы все ближе к цели.

Пример №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 " Bad method request ";         return 0;     }         my $req = ;         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 строки:

SetHandler perl-script    PerlHandler ThreeTier::ExampleFive

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

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

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

Установка компонентов на сервере

Сервер

Клиент

Сервер

Клиент