форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[ Отслеживать ]

"Perl, fork, pipe и контроль наличия данных в pipe'e"

Сообщение от Владимир (??) on 24-Фев-09, 15:18

Доброго времени суток! Есть вопрос, существует ли способ, узнать есть ли данные в pipe'e? Есть скрипт, который создаёт группу child процессов, и получает от них данные через pipe. Хочется, чтоб он продолжал работать, до тех пор, пока не посыпятся данные из pipe не останавливаясь на чтении из трубы. что типа: pipe(READ,WRITE); WRITE->autoflush(1); while(1) {   if(<READ>) {     do_smth($_);   } else {     do_other;   } } Такая конструкция - не работает. На if(<READ>) скрипт останавливается и ждёт данных. ;(

Высказать мнение | Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "Perl, fork, pipe и контроль наличия данных в pipe'e"

Сообщение от angra (ok) on 24-Фев-09, 15:23

perldoc -f select perldoc IO::Select

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "Perl, fork, pipe и контроль наличия данных в pipe'e"
	Сообщение от Владимир (??) on 24-Фев-09, 17:26
	>perldoc -f select >perldoc IO::Select Спасибо ;)
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	3. "Perl, fork, pipe и контроль наличия данных в pipe'e"
	Сообщение от Владимир (??) on 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
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	4. "Perl, fork, pipe и контроль наличия данных в pipe'e"
	Сообщение от angra (ok) on 24-Фев-09, 19:46
	Основная ошибка - использование 0 в качестве таймаута. Есть разница между нулем и undef. Учитывая что изначальный вопрос упоминал форки, даю пример для родителя и одного потомка #!/usr/bin/perl -w use IO::Handle; use IO::Select; pipe(READ,  WRITE) or die $!; WRITE->autoflush(1); if (my $pid = fork) {     close WRITE;     my $s=IO::Select->new;     $s->add(\*READ);     while (1) {       if ($s->can_read(0.5)) {         my $line = <READ>;         print "Child sent:$line";         close READ;         waitpid($pid,0);         last;       } else {         print "doing something\n";       }     } } else {     die "cannot fork: $!" unless defined $pid;     sleep (5);     print WRITE "Hello\n";     close WRITE;     exit; } Успехов
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	5. "Perl, fork, pipe и контроль наличия данных в pipe'e"
	Сообщение от bibi on 02-Май-09, 08:20
	>Успехов я хочу обработать текстовый файл, у меня есть скрипт! куда мне его вставит?
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]