当前位置: 首页>>代码示例 >>用法及示例精选 >>正文


Perl pipe用法及代码示例



描述

该函数打开一对连接的通信管道:READHANDLE 用于读取,WRITEHANDLE 用于写入。您可能需要设置 $|在每个命令后刷新您的 WRITEHANDLE。

用法

以下是此函数的简单语法 -

pipe READHANDLE, WRITEHANDLE

返回值

此函数在失败时返回 0,成功时返回 1。

示例

以下是显示其基本用法的示例代码 -

#!/usr/bin/perl -w

use IO::Handle;

pipe(PARENTREAD, PARENTWRITE);
pipe(CHILDREAD, CHILDWRITE);

PARENTWRITE->autoflush(1);
CHILDWRITE->autoflush(1);

if ($child = fork) { # Parent code
   close CHILDREAD; # We don't need these in the parent
   close PARENTWRITE;
   print CHILDWRITE "34+56;\n";
   chomp($result = <PARENTREAD>);
   print "Got a value of $result from child\n";
   close PARENTREAD;
   close CHILDWRITE;
   waitpid($child,0);
} else {
   close PARENTREAD; # We don't need these in the child
   close CHILDWRITE;
   chomp($calculation = <CHILDREAD>);
   print "Got $calculation\n";
   $result = eval "$calculation";
   print PARENTWRITE "$result\n";
   close CHILDREAD;
   close PARENTWRITE;
   exit;
}

它会产生以下结果: 可以看到计算被发送到 CHILDWRITE,然后由孩子从 CHILDREAD 读取。然后计算结果并通过 PARENTWRITE 发送回父级,父级从 PARENTREAD 读取结果。

Got 34+56;
Got a value of 90 from child

相关用法


注:本文由纯净天空筛选整理自 Perl pipe Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。