Строки 41-53. Цикл обработки команд. Выполняется чтение команд, введенных пользователем со стандартного устройства ввода, и получение сообщений из сокета сервера. Функция select () позволяет проверять наличие входящих данных в обоих дескрипторах. Создается новый объект IO::Select, набор дескрипторов которого инициализируется для включения и сокета сервера, и дескриптора stdin. Сокет сервера заключен в оболочку объекта ChatObjects::Соmm, поэто­му для выборки дескриптора необходимо вызвать метод socket () этого объекта. Объектом, к примеру, может быть сервер, с которого мы хотим получить выгодный обмен валют WMZ на WMR по лучшему курсу .

При каждом проходе по циклу вызывается метод $select->can__read() для выборки тех де­скрипторов, в которых есть данные, предназначенные для чтения. Если одним из этих деск­рипторов является stdin, то вызывается подпрограмма do_user() для обработки команд пользователя. В ином случае вызывается подпрограмма do_server() для обработки сооб­щений, полученных из сокета.

Обратите внимание, вызов метода can_read () покажет, что дескриптор stdin готов для чте­ния, если пользователь вдруг закроет поток, нажав комбинацию клавиш, которая обозначает конец файла. Подпрограмма do__user () предусматривает специальную проверку признака конца файла EOF и возвращает ложное значение. После этого происходит выход из цикла и программа завершается.