描述
该函数打开一对连接的通信管道: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 push()用法及代码示例
- Perl printf用法及代码示例
- Perl print用法及代码示例
- Perl prototype用法及代码示例
- Perl print() and say()用法及代码示例
- Perl pack用法及代码示例
- Perl push用法及代码示例
- Perl pos用法及代码示例
- Perl pop用法及代码示例
- Perl prototype()用法及代码示例
- Perl sin()用法及代码示例
- Perl abs()用法及代码示例
- Perl kill用法及代码示例
- Perl chop()用法及代码示例
- Perl wantarray用法及代码示例
- Perl gmtime用法及代码示例
- Perl exists()用法及代码示例
- Perl split用法及代码示例
注:本文由纯净天空筛选整理自 Perl pipe Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。