| Hi-Tech Обзоры
2015-05-21 22:08:12
Perl для IP-Телефонии (45 – Общая рассылка , часть 1)
В настоящем разделе рассматривается одна из самых сложных функций протокола UDP — передача сообщения сразу нескольким получателям с помощью подробнее >>
2015-05-16 14:26:43
Perl для IP-Телефонии (44 – UDP Чат , часть 36)
Реализация подобного средства может быть осуществлена относительно просто. Еще одним недостатком данной системы является то, что она не предоставляет подробнее >>
2015-05-16 14:21:44
Perl для IP-Телефонии (44 – UDP Чат , часть 35)
Строки 49-56. Проверка наличия неактивных пользователей и отключение их от системы. Метод auto_logoff () выполняет цикл по списку всех подробнее >>
2015-05-13 11:21:10
Perl для IP-Телефонии (44 – UDP Чат , часть 34)
Строки 9, 10. Определение параметров автоматического отключения от системы. Определена константа auto_logout, равная 120 с. Если клиент не сможет подробнее >>
2015-05-13 11:05:09
Perl для IP-Телефонии (44 – UDP Чат , часть 33)
Изменения в модуле ChatObjects::ChatCodes
Модуль ChatObjects::ChatCodes требует простейших корректировок. Здесь просто определена новая константа подробнее >>
2015-05-10 12:24:53
Perl для IP-Телефонии (44 – UDP Чат , часть 32)
Клиенты выполняют эхо-тестирование сервера. Вместо эхо-тестирования клиентов сервером и ожидания подтверждения, клиенты регулярно отправляют на подробнее >>
2015-05-10 12:14:23
Perl для IP-Телефонии (44 – UDP Чат , часть 31)
Обнаружение бездействующих клиентов
Рассматриваемый (в том виде, в каком он сейчас есть) сценарий сервера системы интерактивной переписки имеет подробнее >>
2015-05-10 12:06:48
Perl для IP-Телефонии (44 – UDP Чат , часть 30)
Строки 36-42. Включение пользователя в состав абонентов канала. Метод add () вызывается, когда пользователь желает присоединиться к каналу. подробнее >>
2015-05-10 11:59:46
Perl для IP-Телефонии (44 – UDP Чат , часть 29)
Строки 23-25. Различные средства доступа. Методы title () и description() возвращают, соответственно, название и описание канала. Метод users () подробнее >>
2015-05-10 11:44:27
Perl для IP-Телефонии (44 – UDP Чат , часть 28)
Итак, проведем анализ программы.
Строки 1-3. Загрузка модулей. Работа начинается с загрузки модулей ChatObjects::User и ChatObjects::ChatCodes.
Строки 4-7. Перегрузка строкового оператора двойных кавычек. Как и в модуле ChatObjects::User, желательно иметь возможность преобразовывать объекты каналов непосредственно в названия этих каналов. Выполняется перегрузка строкового оператора двойных кавычек с тем, чтобы он вызывал метод title () объекта, и интерпретатору Perl передается указание, чтобы он руководствовался правилами поведения, предусмотренными по умолчанию, при выполнении других операторов. Здесь также определена глобальная переменная пакета % channels. Она будет содержать применяемый в операциях поиска окончательный список объектов каналов, ключами которого являются названия каналов.
Строки 8-16. Конструктор объекта. Для создания нового экземпляра класса ChannelObjects::Channel вызывается метод класса new (). Метод принимает название и описание нового канала, а также записывает эти данные в хеш, включенный в пространство имен модуля с помощью функции bless (), наряду с пустым анонимным хешем, который в конечном итоге будет содержать список пользователей, подключенных к каналу. Выполняется запись нового объекта в хеш %channels и его возврат.
Строки 17-22. Поиск канала по названию. Метод lookup () возвращает объект ChatObjects::Channel, имеющий указанное название. Название выбирается из массива параметров подпрограммы и используется для доступа по ключу к хешу %channels; Метод channels выполняет выборку всех названий каналов, возвращая ключи хеша channels. подробнее >>
2015-05-07 12:55:58
Perl для IP-Телефонии (44 – UDP Чат , часть 27)
Строки 112-115. Получение списка каналов. Подпрограмма list_channels () возвращает список доступных каналов путем отправки пользователю ряда подробнее >>
2015-05-07 12:40:48
Perl для IP-Телефонии (44 – UDP Чат , часть 26)
В ином случае вызывается метод send() объекта пользователя для передачи сообщения о событии private_msg непосредственно этому пользователю. подробнее >>
2015-05-07 12:36:51
Perl для IP-Телефонии (44 – UDP Чат , часть 25)
Строки 66-80. Метод part(). Указанный метод вызывается, когда пользователь покидает канал; этот метод аналогичен предыдущему по своей структуре и подробнее >>
2015-05-04 12:23:48
Perl для IP-Телефонии (44 – UDP Чат , часть 24)
Строки 44-50. Обработка сообщения о выходе пользователя из системы. При выходе пользователя из системы вызывается метод logout (). Этот метод удаляет подробнее >>
2015-05-02 11:50:48
Perl для IP-Телефонии (44 – UDP Чат , часть 23)
Строки 23-32. Поиск объектов по имени и адресу. Методы lookup_byname () и lookup_byaddr () представляют собой методы класса, которые вызываются для подробнее >>
| |
|
|