如何從Perl打開管道捕獲STDOUT？

Question

如何捕獲由Perl調用的wget中的STDOUT返回值，並將其放入一個變量中？

my @urls = ('url1', 'url2', 'url3'); 

open(GET, "| xargs -n1 -P 3 wget -qO- ") || die "get failed: $!\n"; 
print GET "@urls"; 

Answer 1

首先，your pipe is an input pipe, and open doesn't support both input and output pipes。作爲替代方案，使用管道輸出，並打開一個文件句柄每網址：

use strict; 
use warnings; 

my @urls=qw(url1 url2 url3); 

foreach my $url(@urls) 
{ 
    open(my $get,"-|","wget $url") or die $!; 

    print while(<$get>); 

    close($get); 
} 

Answer 2

如果你想發出聲音一下子所有的數據，IPC::Run可以做到這一點。

use IPC::Run qw(run); 
run [qw(xargs -n1 -P 3 wget -qO-)], \"@urls", \my $out; 
print "$out"; 

如果你想因爲它是可用來處理數據，IPC::Run可以做到這一點。

use IPC::Run qw(run); 
run [qw(xargs -n1 -P 3 wget -qO-)], \"@urls", sub { 
    print $_[0]; 
};