如何读写Perl中的管道?

我是一个Perl noob,所以请原谅这个基本的问题.我需要修改现有的Perl程序.我想通过外部程序管道一个字符串(可以包含多行),并读取该程序的输出.所以这个外部程序用来修改字符串.我们只需要使用cat作为过滤器程序.我尝试这样,但它不工作. (cat的输出到stdout,而不是被perl读取.)
#!/usr/bin/perl

open(MESSAGE,"| cat |") or die("cat Failed\n");
print MESSAGE "Line 1\nLine 2\n";
my $message = "";
while (<MESSAGE>)
{
    $message .= $_;
}
close(MESSAGE);
print "This is the message: $message\n";

我已经读过Perl不支持它,因为它可能会陷入僵局,我可以理解它.但是我该如何做呢?

解决方法

您可以使用 IPC::Open3实现与孩子的双向通信.
use strict;
use IPC::Open3;

my $pid = open3(\*CHLD_IN,\*CHLD_OUT,\*CHLD_ERR,'cat')
    or die "open3() Failed $!";

my $r;

for(my $i=1;$i<10;$i++) {
    print CHLD_IN "$i\n";
    $r = <CHLD_OUT>;
    print "Got $r from child\n";
}

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...