На ввод она не влияет (небуферизованный ввод рассматривается в рецептах 15.6 и 15.8). Если $ I присваивается false, будет использоваться стандартная буферизация stdio. Отличия продемонстрированы в примере 7.6.

Пример 7.6. seeme

#!/usr/bin/perl -w

# seeme - буферизация вывода в stdio

$1 = (@ARGV > 0); # Командная буферизация при наличии аргументов

print "Now you dont see it..."; sleep 2;

print "now you do\n";

Если программа запускается без аргументов, STDOUT не использует командную буферизацию. Терминал (консоль, окно, сеанс telnet и т. д.) получит вывод лишь после завершения всей строки, поэтому вы ничего не увидите в течение 2 секунд, после чего будет выведена полная строка "Now you dont see it... now you do".

В сомнительном стремлении к компактности кода программисты включают возвращаемое значение select (файловый манипулятор, который был выбран в настоящий момент) в другой вызов select:

select((select(OUTPUT HANDLE), $ = 1)[0]);

Существует и другой выход. Модули FileHandle и Ю содержат метод autof lush. Его вызов с аргументом true или false (по умолчанию используется true) управляет автоматической очисткой буфера для конкретного выходного манипулятора:

use FileHandle;

STDERR->autoflush; # Уже небуферизован в stdio

$filehandle->autoflush(0);

Если вас не пугают странности косвенной записи (см. главу 13 «Классы, объекты и связи»), можно написать нечто похожее па обычный английский текст;

use 10::Handle;

# REMOTE CONN - манипулятор интерактивного сокета, 8 а DISK FILE - манипулятор обычного файла.

autoflush REMOTE CONN 1; # Отказаться от буферизации для ясности autoflush DISK FILE 0; # Буферизовать для повышения быстродействия

Мы избегаем жутких конструкций select, и программа становится более понятной. К сожалению, при этом увеличивается время компиляции, поскольку включение модуля IO::Handle требует чтения и компиляции тысяч строк кода. Научитесь напрямую работать с $ , этого будет вполне достаточно.

Чтобы выходные данные оказались в нужном месте в нужное время, необходимо позаботиться о своевременной очистке буфера. Это особенно важно для сокетов, каналов и устройств, поскольку они нередко участвуют в интерактивном вводе/выводе, а также из-за того, что вы не сможете полагаться на построчную буферизацию. Рассмотрим программу из примера 7.7.

7.13. Асинхронное чтение из нескольких манипуляторов 267 Пример 7.7. getcomidx

#!/usr/bin/perl

# getpGomidx - получить документ index.html с www.perl.com use 10::Socket;

$sock = new 10::Socket::INET (PeerAddr => www,perl.com,

PeerPort => httpCSO)); die "Couldnt create socket; $@" unless $sock;

# библиотека не поддерживает $!; в ней используется $@

$sock->autoflush(1);

# На Мае \п\п «обязательно» заменяется последовательностью \015\O12\O15\012.

# Спецификация рекомендует это и для других систем,

# однако в реализациях рекомендуется поддерживать и "\cj\cj".

# Наш опыт показывает, что именно так и получается. $sock->print("GET /index.html http/1.1\n\n"); Sdocument = ]oin(, $sock->getlines());

print "DOC IS; $document\n";

Ни один из рассмотренных нами типов буферизации не позволяет управлять буферизацией ввода. Для этого обращайтесь к рецептам 15.6 и 15.8.

1> Смотри также-

Описание переменной $ вperlvar(l); описание функции select вperlfunc(iy, документация по стандартным модулям FileHandle и IO::Handle.

7.13. Асинхронное чтение из нескольких манипуляторов

Проблема

Вы хотите узнавать о наличии данных для чтения, вместо того чтобы приостанавливать процесс в ожидании ввода, как это делает о. Такая возможность пригодится при получении данных от каналов, сокетов, устройств и других программ.

Решение

Если вас не смущают операции с битовыми векторами, представляющими наборы файловых дескрипторов, воспользуйтесь функцией select с нулевым тайм-аутом:

$rin = ;

# Следующая строка повторяется дпя всех опрашиваемых манипуляторов vec($rin, fileno(FHI), 1) = 1;

vec($rin, fileno(FH2), 1) = 1 vec($rin, fileno(FH3), 1) = 1

Snfound = select($rout=$rin, undef, undef, 0); If (Snfound) {

# Ha одном или нескольких манипуляторах имеются входные данные If (vec($r,fileno(FH1),1)) {

# Сделать что-то с FH1

If (vec($r,fileno(FH2),1)) {

# Сделать что-то с FH2

If (vec($r,fileno(FH3),1)) {

# Сделать что-то с FH3

Модуль IO::Select позволяет абстрагироваться от операций с битовыми векторами:

use 10.-Select,

Sselect = 10:-Select->new();

# Следующая строка повторяется для всех опрашиваемых манипуляторов

$select->add(.FILEHANDLE);

If (@ready = $select->can read(0)) {

tt Имеются данные на манипуляторах из массива @ready

Комментарий

Функция select в действительности объединяет сразу две функции. Вызванная с одним аргументом, она изменяет текущий манипулятор вывода но умолчанию (см. рецепт 7.12). При вызове с четырьмя аргументами она сообщает, какие файловые манипуляторы имеют входные данные или готовы получить вывод. В данном рецепте рассматривается только 4-аргументпый вариант select.

Первые три аргумента select представляют собой строки, содержащие битовые векторы. Они определяют состояние файловых дескрипторов, ожидающих ввода, вывода или сообщений об ошибках (например, сведений о выходе данных за пределы диапазона для срочной передачи сокету). Четвертый аргумент определяет тайм-аут - интервал, в течение которого select ожидает изменения состояния. Нулевой тайм-аут означает немедленный опрос. Тайм-аут также равен вещественному числу секунд или undef. В последнем варианте select ждет, пока состояние изменится:

$г1п = ;

vec($rin, fileno(FILEHANDLE), 1) = 1;

Snfound = select($rin, undef, undef, 0); # Обычная проверка if (Snfound) {

Sline = <FILEHANDLE>;

print "I read Sline";

Однако такое решение не идеально. Если среди передаваемых символов не встретится символ перевода строки, программа переходит в ожидание в <FILEHANDLE>.