in reply to Re^2: IPC::Cmd pipe arrayin thread IPC::Cmd pipe array
use IPC::Run qw/run/;
use IPC::Run qw(run);
my @in = ("Test foo", "Test bar");
run [echo => -n => @in] , '|', [ sed => "s/(foo|bar)/pass/" ], '>', \m
print "Redir: " . Dumper($out);
Redir: $VAR1 = 'Test foo Test bar';
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (463 votes). Check out past polls.