http://qs321.pair.com?node_id=454744


in reply to Re: Capturing both STDOUT, STDERR and exit status
in thread Capturing both STDOUT, STDERR and exit status

Thanks, this is nice and clean. I did make the qx output scalar, otherwise it gives me a list of output lines. 

sub executeCommand
{
  my $command = join ' ', @_;
  ($? >> 8, $_ = qx{$command 2>&1});
}

my ($status, $output) = executeCommand ('/bin/ls', '/');

[download]



pbeckingham - typist, perishable vertebrate.

Replies are listed 'Best First'.
Re^3: Capturing both STDOUT, STDERR and exit status
by polettix (Vicar) on May 06, 2005 at 22:34 UTC
    You have to reverse the return list, otherwise you'll refer to the previous value of $?: 
    sub executeCommand_wrong {
  my $command = join ' ', @_;
  ($? >> 8, $_ = qx{$command 2>&1});
}
sub executeCommand_correct {
  my $command = join ' ', @_;
  ($_ = qx{$command 2>&1}, $? >> 8);
}
my $command = 'echo -n ciao ; false';
my ($status, $output) = executeCommand_wrong ($command);
print "[$output] -> [$status]\n";
($output, $status) = executeCommand_correct($command);
print "[$output] -> [$status]\n";

__END__
[ciao] -> [0]
[ciao] -> [1]

    [download]
    If you cannot live without having $status as the first returned value, just use reverse: 
    sub executeCommand {
  my $command = join ' ', @_;
  reverse ($_ = qx{$command 2>&1}, $? >> 8);
}

    [download]

    Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

    Don't fool yourself.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom