I am currently trying to work out how to do it with IPC::Run and having trouble. Could you provide a code snipit of how to accomplish? The closest example I have right now is how to duplicate IPC::Open3

Could you provide a code snipit of how to accomplish?

Something like this maybe?

Update: Now with STDERR support.

use warnings;
use strict;
use IPC::Run qw/ run new_chunker /;

my @cmd = ('yourcommand', 'arg1', 'arg2');
my (@out,@err);
run \@cmd, '>', new_chunker("\n"), sub {
        my $line = shift;
        print $line;
        push @out, $line;
    }, '2>', new_chunker("\n"), sub {
        my $line = shift;
        print STDERR $line;
        push @err, $line;
    } or die $?;
[download]

"...provide a code snipit..."

Sorry, no. Not in a hurry. I didn't use IPC::Run like this. But haukex gave already some advice. And you are aware that the code you provided at Re^4: Capture STDOUT and send to screen with open3 (updated) doesn't compile?

Read more... (2 kB)

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

I am sorry, I am trying it and it hangs. Here is what I am executing: What am I doing wrong? Also, will this print a line real time from cat as if output were not being captured?

my @cat = qw( cat );
run \@cat,
        '<pipe', \*PIPE,
        '>', new_chunker("\n"), sub {
                my $line = shift;
                print $line;
                push @out, $line;
        }, '2>', new_chunker("\n"), sub {
                my $line = shift;
                print STDERR $line;
                push @err, $line;
        } or die $?;
print PIPE "some input\n";
close PIPE;
print "out @out";
print "err @err";
[download]