Исходное сообщение
"Perl, fork, pipe и контроль наличия данных в pipe'e" Отправлено Владимир, 24-Фев-09 18:42
>perldoc -f select >perldoc IO::Select Мда. Что то не выходит каменный цветок. Как не пытался, сколько вариантов не пробовал, всё не работает ;( Что я делаю не так? #!/usr/bin/perl use IO::Select; pipe(READ,WRITE); WRITE->autoflush(1); $select = IO::Select->new(); $select->add(READ); #здесь были и *READ и \*READ, пробовал все варианты из примеров. Хотя шаманства этого так и не понял ;( print WRITE "Ololo\n"; if (@ready = $select->can_read(0)) {   $olo=<READ>;   print "$olo!!!!"; } else {     print "Nea\n"; } Всегда выводит Nea