是否可以打開一個打印到perl變量的基於管道的文件句柄？

Question

我知道我能做到這一點，

 

------ 
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; 
 

但是，上述顯然不會工作。

幾分鐘的試驗和谷歌搜索似乎表明，這是不可能的，但我想知道如果我堅持使用``來捕獲輸出。

Answer 1

我真正想做的事情在perl中是不可能的。

Answer 2

你想要做的就是像打開文件句柄一樣，將內容讀入一個變量，將所需的任何內容追加到變量中，然後將set the environment variable as is stated here附加到剛剛生成的完整字符串中。

你幾乎在那裏，我希望能幫到你。 :)

Answer 3

看來，這是不可能的，因爲perl不支持'管道兩端'。這裏更多的信息，

http://perldoc.perl.org/perlipc.html

Corion了在perlmonks.org回答了這個給我。

Answer 4

• IPC::Open2可能會訣竅，請參閱man perlipc。然而，更有可能的是，你會以這種方式僵化你的程序。不過，只要管道中的數據小於PIPE_BUF（在Linux 4096上），只寫入一次，並且在寫入數據之後和讀取結果之前立即關閉寫入端。

• 您可能會嘗試將程序重寫爲fork，以便最終得到：YourProg | ./prog1 | ./prog2 | YourProgForked。

• 在現代Linux上，您可以使用/ dev/shm將臨時文件完全存放在虛擬內存中。

Answer 5

您可以通過幾種方式實現您的目標。它們都不如將額外的東西打入open那麼容易。

您可以使用IO::Tee或其他類似的模塊，甚至寫自己的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; 
} 

另一種方法去將是使一個tied variable充當文件句柄，並在標同時。