请教各位老大

hwxo

UID: 27474
帖子: 193
积分: 443
在线时间: 2 天 2 小时

1^# hwxo 发表于 2008-10-06 12:33

请教各位老大

#!/usr/bin/perl
use warnings;
use strict;
use POSIX 'WNOHANG';
$SIG{CHLD} = \&shouge;

pipe(READER,WRITER);
my $cpid = fork;
if ($cpid == 0) {
close READER;
print $$."\n";
print WRITER "just a test";
}

sub shouge {
while ((my $kid = waitpid(-1,WNOHANG))>0){
warn "子进程收割\n";
}
}

怎么取到这个"just a test"？

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-10-06 12:53

QUOTE:

原帖由 hwxo 于 2008-10-6 12:33 发表
if ($cpid == 0) {
close READER;
print $$."\n";
print WRITER "just a test";
exit; #子进程退出
}

#父进程
close WRITER;
my @message = <READER>;
close READER;
print "@message\n";

sub shouge {
...
}

父进程读取 READER

hwxo

UID: 27474
帖子: 193
积分: 443
在线时间: 2 天 2 小时

3^# hwxo 发表于 2008-10-06 12:57

多谢楼上的兄弟，子进程不能关闭READER句柄。在父进程里面读。