Строки 21-29. Обработка дескрипторов чтения. В следующем фрагменте кода путем вызо­ва метода handles ( ) объекта IO::Poll с маской pollout и pollerr выполняется выбор­ка дескрипторов, в которых имеются данные для чтения или которые сигнализируют о конце файла.

Если для чтения готов дескриптор stdin, из него считываются данные и добавляются к пере­менной $to_socket. Аналогичным образом данные из сокета добавляются к переменной $to_stdout. Если любая из операций чтения оканчивается неудачей, то устанавливается ис­тинное значение одного или обоих флажков $stdin_done и $sock_done. Эти флажки прове­ряются в конце цикла.

Строки 30-48. Обработка дескрипторов записи. Теперь настало время для обработки дескрип­торов, предназначенных для записи. Вызывается метод handles () объекта IO::Poll с маской, которая возвращает дескрипторы файлов, либо готовые для записи, либо содержащие ошибки. Если в списке есть дескриптор stdout, то предпринимается попытка записать в него содер­жимое переменной $to_stdout. Такая же попытка предпринимается для сокета, с использо­ванием переменной $to_socket. Поскольку оба дескриптора являются неблокирующими, приходится иметь дело с ошибками ewouldblock и неполными операциями записи. Здесь применяется логика, аналогичная описанной ранее. В случае возникновения ошибки ewouldblock соответствующий дескриптор файла пропускается и попытка записи в него по­вторяется через некоторое время. При неполной записи удаляется успешно записанная часть буфера, а незаписанная часть остается для следующей попытки.