Этот сервер действует подобно стандартному серверу службы времени, возвращая строку, содержащую текущее значение даты и времени, в ответ на входящие запросы. Однако, как дань моде на разработку программ, предназначенных для глобального распространения, в нем также предусмотрен поиск входящих сообщений строки с указанием часового пояса, и если такая строка присутству­ет, сервер возвращает дату и время относительно этого часового пояса.

Сервер и клиент именуются как localtime_serv.pl и localtime_cli.pl. Клиент принимает необязательный параметр с обозначением часового пояса из команды строки. Ниже показаны результаты, полученные при использовании клиента для выборки времени в текущем часовом поясе, в Восточной Европе и Анкоридже, шт. Аляска

Сервер службы времени домена UNIX

Сценарий localtime_serv.pl приведен в листинге ниже. В нем применяется общая конструкция однопоточного дейтаграммного сервера, которая описана ранее.

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

Строки 1—6. Настройка сервера. Выполняется загрузка модуля IO::Socket, и для сокета выбирается полное имя, применяемое по умолчанию. Затем из командной строки считывается иное значение полного имени сокета, если пользователь желает его изменить.

Строка 7. Установка обработчиков term и int. Как и в примере с установлением логического соединения, необходимо удалить файл сокета перед завершением работы. В описанном выше примере для этого было предусмотрено удаление файла в обработчиках сигналов term и int. Для разнообразия в данном примере то же действие будет выполнено путем определения блока end {}, в котором предусмотрено уничтожение файла с этим полным именем перед завершени­ем работы сценария. Однако для предотвращения преждевременного завершения работы сце­нария все равно необходимо установить обработчик прерывания, который перехватывает сигна­лы term и int и вызывает функцию exit ( ) для обеспечения корректного завершения процесса.