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

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.

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.

#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;

my $cmd = 'ls -la';

my $pid = open3(\*WRITER, \*READER, \*ERROR, $cmd);
#if \*ERROR is 0, stderr goes to stdout


while( my $output = <READER> ) {
             print "output->$output";
      }

while( my $errout = <ERROR> ) {
             print "err->$errout";
      }

waitpid( $pid, 0 ) or die "$!\n";
my $retval =  $?;
print "retval-> $retval\n";
[download]

(hopefully not being too much of a thread necrophile here) This is an excellent example, which has just saved me from abhorrent temp file hell. One small quibble; the retval line should probably read:

my $retval = $? >> 8;
[download]

use Sysadm::Install qw(tap);

my($stdout, $stderr, $rc) = tap "/bin/ls", "-l", "foobar";

print "stdout=$stdout\n",
      "stderr=$stderr\n",
      "rc=$rc\n";
[download]