Re^2: IPC::Cmd pipe array

That sorta works (ie, it doesn't error), but not really:

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use IPC::Cmd qw/run/;

my @in = ("Test foo", "Test bar");

print "In: " . Dumper(@in);

@in = ("Test foo", "Test bar");

my @out = run(command => [echo => -n => @in] , '|', [ sed => -r => "s/
+(foo|bar)/pass/" ], '>', \my $out);

print "Out: " . Dumper(@out);
print "Redir: " . Dumper($out);
[download]

Out:

 % ./t2.pl
In: $VAR1 = 'Test foo';
$VAR2 = 'Test bar';
Out: $VAR1 = 1;
$VAR2 = undef;
$VAR3 = [
          'Test foo Test bar'
        ];
$VAR4 = [
          'Test foo Test bar'
        ];
$VAR5 = [];
Redir: $VAR1 = undef;
[download]

Comment on Re^2: IPC::Cmd pipe array Select or Download Code

Replies are listed 'Best First'.
Re^3: IPC::Cmd pipe array by runrig (Abbot) on Oct 29, 2013 at 16:54 UTC
My code is using IPC::Run, not IPC::Cmd. Your's is still using IPC::Cmd.	[reply]
Re^4: IPC::Cmd pipe array by ag4ve (Monk) on Oct 29, 2013 at 17:13 UTC
Ah, you're right. I'll look at converting (will probably be good since there's more written about IPC::Run anyway). Thanks	[reply]
Re^4: IPC::Cmd pipe array by ag4ve (Monk) on Oct 31, 2013 at 15:53 UTC
`#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; 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 +y $out; print "Redir: " . Dumper($out);` [download] OUT: `% ./t2.pl Redir: $VAR1 = 'Test foo Test bar';` [download]	[reply] [d/l] [select]