是否可以打开一个基于管道的文件句柄，将其打印到perl中的变量？_Perl_File Io

是否可以打开一个基于管道的文件句柄，将其打印到perl中的变量？

perl file-io

是否可以打开一个基于管道的文件句柄，将其打印到perl中的变量？,perl,file-io,Perl,File Io,我知道我能做到 ------ open(F,">",\$var); print F "something cool"; close(F); print $var; ------ 或者这个, open(F, "| ./prog1 | ./prog2 > tmp.file"); print F "something cool"; close(F); 但有可能把这些结合起来吗？我想做的事情的语义应该从以下内容中明确 open(F,"|./prog1 | ./prog2", \$var); p

我知道我能做到


------
open(F,">",\$var);
print F "something cool";
close(F);
print $var;
------

或者这个,


open(F, "| ./prog1 | ./prog2 > tmp.file");
print F "something cool";
close(F);

但有可能把这些结合起来吗？我想做的事情的语义应该从以下内容中明确


open(F,"|./prog1 | ./prog2", \$var);
print F "something cool";
close(F);
print $var;

然而，上述方法显然行不通

几分钟的实验和谷歌搜索似乎表明这是不可能的，但我想知道我是否坚持使用``来捕获输出。

您要做的是按原样打开文件句柄，将内容读取到一个变量，将您想要的任何内容追加到该变量，然后追加到刚刚生成的完整字符串

你就快到了，我希望这能有所帮助。：）

这似乎是不可能的，因为perl不支持“两端的管道”。更多信息请点击这里

perlmonks.org上的Corion为我回答了这个问题。

```
IPC:：Open2
```
可能会起作用，请参见
```
man perlipc
```
。然而，更有可能的是，您将以这种方式使程序死锁。不过这是安全的，只要管道中的数据小于pipe_BUF（在Linux 4096上），只写入一次，并且写入端在写入数据之后和读取结果之前立即关闭
您可以尝试将程序重写为fork，这样您的最终结果是：
```
YourProg |/prog1 |/prog2 | yourprogfork
```
在现代Linux上，您可以使用/dev/shm将临时文件完全托管在虚拟内存中

open

tee

my $var ='';

open my $vh, '>', \$var or die "oh noes $!\n";
open my $ph, '| ./prog1 | ./prog2' or die "Uh oh $!\n";

my @handles = ($vh, $ph);

print_to_all( \@handles,
    "I like cheese.\n",
    "I like teas.\n",
);

print $var;    

sub print_to_all {
     my $handles = shift;

     for my $h ( @$handles ) {
         print $h @_;
     }

     return;
}

while