Re: Capturing both STDOUT, STDERR and exit status

A backtick/qx suffices to mimic what you already do:

my $alloutput = qx(/bin/ls / 2>&1);
my $exitcode = $? >> 8;
[download]

If you need to keep stderr and stdout separate use merlyn's suggestion.

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

Don't fool yourself.

Comment on Re: Capturing both STDOUT, STDERR and exit status Download Code

Replies are listed 'Best First'.
Re^2: Capturing both STDOUT, STDERR and exit status by pbeckingham (Parson) on May 06, 2005 at 17:54 UTC
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.	[reply] [d/l] [select]
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]