Строка 22. Создание нового объекта связи. Вызывается метод ChatObjects::MComm- >new() для создания нового объекта связи. В первоначальной версии этого сервера объект ChatObjects::МСоmm применялся как посредник в процессе отправки и получения сообще­ний с кодами событий от клиентов. Его основная задача состоит в упаковке и распаковке со­общений системы интерактивной переписки, в которых применяется разработанный нами дво­ичный формат. Этот подкласс первоначального класса ChatObjects::Corom принимает три параметра: управляющий порт, порт многоадресной рассылки и значение TTL для исходящих многоадресных сообщений.

Строки 23-30. Создание каналов. Создается ряд каналов интерактивной переписки в форме объектов ChatObjects::MChannel. Конструктор этого подкласса принимает четыре параметра: название и описание канала, а также два новых параметра, состоя­щие из адреса группы многоадресной рассылки данного канала и объекта связи ChatObjects::MComm. Для этого мы произвольно выбрали адреса групп в диапазоне от 1 до 225.1.0.5.

Строки 32-43. Главный цикл. Главный цикл сервера совпадает с первоначальной версией.

Строки 44-50. Выполнение запросов на регистрацию. Подпрограмма do_login() немного изменилась. После успешной регистрации пользователя и создания соответствующего объек­та ChatObjects::User вызывается метод send() объекта пользователя для отправки кли­енту сообщения о событии set_mcast_port. Параметром для формирования этого сообще­ния о событии является порт многоадресной рассылки, полученный с помощью метода mport() объекта связи ChatObjects::MComm (это значение можно также получить из гло­бальной переменной $mport).

Код модуля ChatObjects::MComm это — подкласс клас са ChatObjects::Comm, в котором перекрыт конструктор new () и добавлен один метод, mport().

Проведем анализ этой программы.

Строки 1-6. Загрузка модулей. Интерпретатор Perl получает информацию о том, что ChatObjects::MComm является подклассом класса ChatObjects::Comm, и загружает моду­ли ChatObjects::Comm и IO::Socket. Загружается также модуль IO::Socket::Multicast для получения доступа к различным методам;