topic Re: could not able to get right exit value from perl script in Operating System - HP-UX

could not able to get right exit value from perl script

Goutam Maity — Wed, 25 Feb 2009 18:18:22 GMT

Hi,

Please check below perl & shell script.

root@ > more test.pl
#!/usr/bin/perl

print " begining of programme \n";

$val=1;
$val=system("sh check.sh");

print "Exit Value : ",$?,"\n";
print "Value of veriable val : ",$val,"\n";

root@ > more check.sh

echo "Inside Shell Script..... check.sh......";
exit 123;

unixh147-root@ /home/gm433 > perl test.pl

begining of programme

Exit Value: 31488

Value of veriable val : 31488

Why I am not able to get correct value i.e. 123 ?

How can I get value 123?

Please help me.

Thanks,
Goutam

Re: could not able to get right exit value from perl script

Steven Schweda — Wed, 25 Feb 2009 19:13:03 GMT

You might get better answers sooner in a
forum related to your actual OS, which does
not appear to be VMS.

Re: could not able to get right exit value from perl script

Craig A Berry — Wed, 25 Feb 2009 20:12:24 GMT

You might read the docs:

$ perldoc -f system

or

http://perldoc.perl.org/functions/system.html

where it says,

"The return value is the exit status of the program as returned by the wait call. To get the actual exit value, shift right by eight."

So, if you shift the result right by 8, you get what you are looking for:

$ perl -e "$x=system('perl -e exit(123)'); print $x"
31488
$ perl -e "$x=system('perl -e exit(123)'); print $x >> 8;"
123

If you were using Perl on VMS (which you appear not to be) you could use the vmsish 'exit' pragma to control whether you get native exit codes or POSIX emulation.