The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Perl, fork, pipe и контроль наличия данных в pipe'e"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [ Отслеживать ]

"Perl, fork, pipe и контроль наличия данных в pipe'e"  
Сообщение от Владимир email(??) 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"  
Сообщение от Владимир email(??) on 24-Фев-09, 17:26 
>perldoc -f select
>perldoc IO::Select

Спасибо ;)

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

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




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2021 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру