VPF::Почему не читает из пайпов - Форум программистов

fray

Дата 4.9.2007, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 7.6.2007

Репутация: 0
Всего: 0

короче, почему не выводит на экран ? не читает из <$reader> ?Это работает но не в Актив перле

Код

 
#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;
use IO::Select;

my $s = new IO::Select; # селектор
my $Size = 3;
my $pid;

for(my $i=1; $i<$Size ; $i++)
{
      my ($reader, $writer);
      pipe($reader, $writer);
      $reader->autoflush(1);
      $writer->autoflush(1);
      $pid = fork;
      die "fork no good $!\n" unless defined $pid;
      $s->add($reader);
      unless($pid) {
              close $reader;
              for(1..3){
                      sleep(3 * $_);
                      print $writer "child($$) post to parent => $_$_$_\n" ;
              }
              close $writer;
              print "ended child PID $$\n";
              exit;
      }
}
my @ready;
if($pid) {
      if(@ready = $s->can_read(1)){
              foreach my $reader (@ready){
                  print "parent recvieved: $_" while <$reader> ;
              }
}

print "end parent\n";
wait();

while (@ready = $s->can_read(0))
{
      foreach my $reader (@ready){
                      print "parent recvieved: $_" while <$reader> ;
              }
      }
}

Это сообщение отредактировал(а) fray - 4.9.2007, 19:25

Bulat

Дата 5.9.2007, 08:19 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Насколько я помню, приреализации пайпов, также используются дескрипторы, как и у файлов. Т.е. не <$reader>, а <READER>, допустим

--------------------

менеджер по кодеврайтингу smile

fray

Дата 5.9.2007, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 7.6.2007

Репутация: 0
Всего: 0

Цитата(Bulat @ 5.9.2007, 08:19)

Кароче Баян, <$reader> так тоже можно, прога рабочая но не в Винде, в БСД всё работает

Это сообщение отредактировал(а) fray - 5.9.2007, 12:18

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »