在perl中获取shell脚本的退出结果

Casper1314

今天写perl时遇到一个问题

test.pl:

#!/usr/bin/perl -w
use strict;
my $result = system("test.sh");
print $result."\n";

test.sh:
#! /bin/sh
exit 1

执行
perl test.pl

我期望得到的test.sh的退出代码1，但是得到的是256。

请问这是问什么？有什么办法可以得到test.sh的退出代码1。

jason680

回复 1# Casper1314

divided by 256 to get answer

my $result = system("test.sh") >>8;
   

$ perldoc -f system
    system LIST
    system PROGRAM LIST
            Does exactly the same thing as "exec LIST", except that a fork is
            done first and the parent process waits for the child process to
            exit.
            ...
         
            If you'd like to manually inspect "system"'s failure, you can
            check all possible failure modes by inspecting $? like this:

                if ($? == -1) {
                    print "failed to execute: $!\n";
                }
                elsif ($? & 127) {
                    printf "child died with signal %d, %s coredump\n",
                        ($? & 127),  ($? & 128) ? 'with' : 'without';
                }
                else {
                    printf "child exited with value %d\n", $? >> 8;
                }

Casper1314

:wink:非常感谢

redpig315

你应该用qx//这个形式获得shell的输出，请注意看``,system,qx//的区别

104359176

没看明白，怎么设置 exit(1)

rubyish

[quote]jason680 发表于 2014-04-09 11:06
回复 1# Casper1314

1. my $result = system("test.sh") >>8;

复制代码

divided by 256 to get answer
[/quote
非常感谢~

kernel69

学习了

回复 2# jason680