解決perl 調用system傳回值問題

測試指令碼如下：

 

my $run_app_path = "c://exit_value.pl";
my $ret_val = system( $run_app_path );
print "system value is : $ret_val/n";
$ret_val = $ret_val >> 8;
print "return value is : $ret_val/n";
exit 0;

 

 

其中，exit_value.pl 指令碼內容如下：

 

use strict;
use warnings;

my @pq = qw(200 300 500 600 700 800);
foreach (@pq)
{
 if ( $_< 300 ) { print "lower than 300/n"; }
 elsif($_==700) {exit 2;}
 else { print "$_ , invalid , skip/n";}
}
exit 0;

 

System value return code is:

 

     The return value is the exit status of the program and

   can be obtained by dividing by 256 or right-shifting the lower 8 bits.