I just typed system backticks into the search box, and quickly found How do I get both the return value and text? backticks vs. system(). It's always worth checking to see if someone else has asked a question similar to yours before posting.

Thanks, I did a search before, but i haven't found that one
Maybe I need some glasses :-)


-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]

#!/usr/bin/perl

print"STATUS:$?\n";

$result=`./xxx.pl`;
$status=$?;

print "RES:$result\nSTA:$status\n";
[download]

#!/usr/bin/perl

print"Wonderful world on Friday\n";
exit 200;
[download]

STATUS:0
RES:Wonderful world on Friday

STA:25600
[download]

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]

Look under "exit status" of the camel book. $? is the entire 16 bit status code. You only want the last 8 bits.

This will fix your code: $status = $? >> 8; bb

As perlvar documents, $? is "just the 16-bit status word returned by the wait() system call (or else is made up to look like it). Thus, the exit value of the subprocess is really ('$? >> 8')". It looks like perl thinks the exit value it got was 100.

hdp.

my $return_code = system("system_command > /tmp/program.out");
open(FILE,"/tmp/program.out") || die "Cant open /tmp/program.out $!\n"
+;
my @output_file = <FILE>;
close FILE;
unlink("/tmp/program.out");
print STDOUT "return code ",$return_code>>8,"\n";
print STDOUT "@output_file";
[download]

While others have posted links to other code that achieves physi's desired result, there is something which I think needs to be addressed in your code. While it certainly works and allows for a range of exit result eventualities, it does raise the age-old ire of using temporary files on systems. That is, the use of tempoary files with either predictable or known file names can allow for the trapping and redirection of output code.

Issues pertaining to the use of temporary files have been covered in a number of threads both on Perl Monks and on news groups, including here and here. I would also recommend having a look at the POD documentation for the File::Temp module which discusses temporary file issues.

I just wish I had saved the thread from comp.lang.perl.moderated that dealt with this issue in detail. At the very least I hope I have got you thinking ...

I just wish I had saved the thread from comp.lang.perl.moderated that dealt with this issue in detail. At the very least I hope I have got you thinking ...

This thread from comp.lang.perl.modules disusses temporary files in detail.