如何将进程的标准输出重定向到管道?

j4ckl1u

open(INPUTF, $ARGV[0]) || die("can't open filein:".$ARGV[0]); pipe (INPUTP, OUTPUTP); my $retval = fork(); if ($retval != 0) {     # this is the parent process     print "father print: my son is ".$retval."\n";     my $line = "";     close (OUTPUTP);     while(<INPUTP>)     {         $line = $_;         print "father print:".$line;         if($line =~ m/this\sis\sa\stest/g)         {             while(kill 0 => $retval)             {                 print "father print: i should terminate my son:".$retval."\n";                 kill (9, $retval);             }         }     } } else {     # this is the child process     #*     #将子进程的标准输出重定向到管道OUTPUTP     #*     close(INPUTP);     while(<INPUTF>)     {         print OUTPUTP $_;         print "child print:".$_;         sleep(1);     } }

[ 本帖最后由 j4ckl1u 于 2007-11-7 09:49 编辑 ]

smonkey0

重定向标准输出好像不用这么复杂吧?
if (open(FROM, "-|" )) {
        $toparent = <FROM>;
}
else {
        print STDOUT $fromchild;
        exit
}
这样应该就能实现

j4ckl1u

我知道这个方法，我想知道有没有类似dup2的函数，POSIX::dup2好像应该可以，但是不知道怎么用。

beckheng

open STDOUT,,,