7) Выполнение ввода-вывода в подключенном сокете. Если дескриптор готов для чтения и это не дескриптор приемного сокета, то это должен быть дескриптор подключен­ного сокета в соединении, принятом в одном из предыдущих проходов по циклу. Из хеша sessions извлекается соответствующий объект chatbot. Если поиск в хеше завершается неудачей (что в принципе не должно случиться), достаточно просто проигнорировать этот со­кет и перейти к следующему готовому сокету.

В ином случае необходимо прочитать строку, введенную пользователем. В данном случае вы­ражение “чтение строки, введенной пользователем” не соответствует действительности, по­скольку в операциях построчного чтения языка Perl, включая метод getline () сокета, ис­пользуется буферизация библиотеки stdio и поэтому они не совместимы с вызовами метода select ().

Далее будет показано, как создать собственную функцию построчного чтения, со­вместимую с методом select (), но в данном случае мы обойдем эту проблему, считы­вая с помощью функции sysread(), ориентированной на обработку потока байтов, до 1024 символов и рассматривая их так, как если бы они составляли полную строку. Обыч­но пользователь при вводе информации в интерактивном режиме не выходит за пределы этого ограничения, поэтому установленный объем ввода является вполне приемлемым для данного сервера.

 8) Отправка ответа клиенту. Функция sysread () возвращает либо число счи­танных байтов, либо 0, если это — конец файла. Поскольку вызов является небуферизованным, то число возвращенных байтов может быть больше нуля, но не больше затребованного нами числа байтов.