fork, pipe, �� (jr)

Fri, 18 Sep 2009 07:19:23 GMT

>use Storable qw(store_fd fd_retrieve);
> store_fd $data, $pipe;
> until ( eof $pipe ) {
> my $data = fd_retrieve($pipe);

��! �� -�� ...

fork, pipe, �� (ACCA)

Fri, 18 Sep 2009 00:18:16 GMT

#!/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;
}
}

OpenForum RSS: fork, pipe, �������� ������� ������ ����� ����������

fork, pipe, �������� ������� ������ ����� ���������� (jr)

fork, pipe, �������� ������� ������ ����� ���������� (ACCA)

OpenForum RSS: fork, pipe, ��

fork, pipe, �� (jr)

fork, pipe, �� (ACCA)