Исходное сообщение
"fork, pipe, передача сложных данных между процессами" Отправлено ACCA, 18-Сен-09 04:18
#!/usr/bin/perl use strict; use warnings; use Storable qw(store_fd fd_retrieve); use IO::Pipe; use IO::Handle; use Data::Dumper; # создаем трубу my $pipe = IO::Pipe->new(); # делаем fork my $pid = fork(); # дочка if( $pid == 0 ) {    # тут мы пишем в трубу    $pipe->writer();    $pipe->autoflush( 1 );    foreach( 1..10 ) {       # создаем ссылку на хэш       my $data = { pid => $$, data => $_ };       # пересылаем в трубу закодированный в строку хэш       store_fd $data, $pipe;       # sleep на 0.3 секунды       select undef, undef, undef, 0.3;    } } # родитель else {    unless( defined $pid ) {       die 'Cannot fork';    }    # тут мы читаем из трубы    $pipe->reader();    until ( eof $pipe ) {       my $data = fd_retrieve($pipe);       # выводим то, что пришло от дочки       print Dumper $data;    } }