Re^2: Capturing both STDOUT, STDERR and exit status


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^2: Capturing both STDOUT, STDERR and exit status

by pbeckingham (Parson)

on May 06, 2005 at 17:54 UTC ( [id://454744]=note: print w/replies, xml )

Need Help??

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.

Comment on Re^2: Capturing both STDOUT, STDERR and exit status Select or Download Code

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

$?

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]

$status

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://454744]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (5)

As of 2024-04-23 13:24 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found