Re: How to output backtick or qx to a variable and STDOUT at the same time?

[Athanasius]

I’m not exactly clear on what you want, but the CPAN module Capture::Tiny will almost certainly meet your needs. For example (from the documentation):

($stdout, $stderr, $exit) = capture { system($cmd, @args); };

Update: For your specific example:

#!usr/bin/perl

use strict;
use warnings;
use Capture::Tiny qw(capture);

my ($stdout, $stderr, $exit) = capture
{
    system('ls', '-l');
};

print "After the system call:\n";
print "\$stdout = $stdout\n";
print "\$stderr = $stderr\n";
print "\$exit   = $exit\n";

Hope that helps,

[dr.jekyllandme]

Thank you! Looking over at Capture::Tiny's doc, I found tee. Which is exactly what I needed. Output both to STDOUT and store in a variable for later use.

#!usr/bin/perl

use strict;
use warnings;
use Capture::Tiny qw(capture tee);

my ($stdout, $stderr, $exit) = tee
{
        system('ls', '-l');
};
print $stdout;