подсчитать количество всех голосов, а затем разделить на это число количество голосов по каждой категории. Например, если всего проголосовало 100 человек и за одну из категорий подано 40 голосов, то получим коэффициент 0,4, на который и нужно умножать длину соответствующего столбца.

Результаты опроса, программа анализа данных которого приведена в листинге 24.4, легко могут быть искажены людьми, проголосовавшими более одного раза. Подумайте, как это можно предотвратить? Можно создать файл, в котором будут сохраняться адреса всех респондентов, проверять по этому файлу адрес очередного голосующего и не допускать дублирования. Однако это не нозволит вынолнить голосование людям, работающих через proxy-сервер (об этом щла речь на 23-м занятии, "Push-технология и счетчики носещений Web-страниц"). Поэтому придумайте метод, позволяющий человеку, посетившему ваш сервер, проголосовать только один раз.

(Но только имейте в виду, что подобный метод не может быть простым.

Считайте это, по большей части, чисто теоретическим экспериментом.)

Приложение

Инсталляция модулей в Perl

Устанавливать модули в Perl несложно и научиться это делать необходимо, если вы хотите овладеть искусством программирования на Perl. В этом приложении содержится информация о том, как устанавливать нужные вам модули.

Подробная информация о том, как устанавливать модули праически в любой операционной системе, содержится в документации по Perl. В документе, который называется perlnodinstall, содержатся даже инструкции по инсталляции модулей в таких непопулярных операционных системах, как OS/2 и VMS.

Выбор нужного модуля

Сначала вам необходимо выбрать нужный модуль. Хорошей отправной точкой для этого является библиотека CPAN, доступ к которой можно получить по адресу http: www.perl.com/CPAN. Вы должны решить, какой модуль вас интересует.

Имена модулям CPAN даны примерно в соответствии с их функциями. Например, модуль Image::Size берет изображение и сообщает, каков размер этого изображения; этот модуль используется для работы с Web-страницами. Но некоторые модули имеют необычные имена. Так, имя модуля LWP происходит от названия библиотеки Perl, которая называется

Наборы модулей можно также найти в CPAN. В этих наборах содержится несколько связанных между собой модулей и обычно несколько сопутствующих модулей, причем все они находятся в одном большом пакете. Например, набор libnet устанавливается как модуль, но в процессе установки получается несколько модулей и все они предназначены для работы в сети. Например, модуль LWP - это часть набора libnet.

При установке модуля вы автоматически получаете всю документацию к нему.

Инсталляция модулей в системе...

В каждом из примеров, в следующих разделах, мы будем пытаться

устанавливать модуль Date::Manip из библиотеки CPAN. Чтобы установить собственный модуль или набор модулей, просто подставьте имя этого модуля вместо Date::Manip.

.Windows 95/98/NT

Для системы \¥indows самым простым решением будет использование стандартных пакетов модулей, которые созданы ActiveState Tool Соф, конечно, при условии, что вы используете интерпретатор Perl этой фирмы.

Чтобы установить стандартный модуль в системе Windows, нужно сначала запустить Perl Package Manager (PPM). Эта утилита упрощает процесс инсталляции, так как она предоставляет для этой цели интерактивный интерфейс. Чтобы запустить РРМ, нужно открыть окно сеанса MS-DOS; при этом вы должны быть подключены к Internet.

После командного приглашения просто наберите ррт, как показано ниже. В результате должна запуститься утилита РРМ; если этого не произойдет, поищите файл ppm.bat, который бьш установлен вместе с версией ActiveState Perl и запустите его,

указав полный путь.

C:\Hindows>ppm

РРМ interactive siKUl (1.1.3) - type fcr available conna.

Чтобы найти конкретный модуль, воспользуйтесь командой search, как показано ниже. Эта команда нужна потому, что в ActiveState нет заранее построенных пакетов для всех модулей из CPAN; они есть только для наиболее популярных модулей. Кроме того, чтобы инсталлировать модуль, вы должны правильно указать его имя, не сделав при этом орфографических ошибок.

НМ> search Date

Packages available from http: www.ActiveState.com/packages Date-Calc Date-Manip TimeDate

IPH>

После того как вы найдете нужный модуль - в нашем примере это Date nip, - можете установить его с помощью команды install следующим образом:

install Date-Manip Install package Date-Manip? (y/H): у Installing C:\Perl\html\lib\Date\Maniphtml Installing C:\Perl\htmlhelp\plcg-Date-Manip.htiiil Installing C:\Perl\htmlhelp\pkg-Date-Kanip.hhc Installing C;\Perl\site\lib\Date\Manip.pm Writing C:\Perl\Bite\lib/auto/Date-Manip/.packlist HM>

Теперь модуль Date: :Manip установлен!

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

ста мопей в Perl 373