如何获取一个子进程的退出状态码

vgra

用open($pipe, "-|", $child_cmd)的方式打开管道创建一个子进程，如何才能得到该子进程的退出状态码呢
谢谢

DQP

可以检查$?

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

复制代码

vgra

可是如果子进程是以exit(-1)退出的，$? >> 8得到的值是255呢
再一个，什么情况下$?会等于-1呢，就是你的第一个if合适成立呢
谢谢

engrol

可是如果子进程是以exit(-1)退出的，$? >> 8得到的值是255呢
再一个，什么情况下$?会等于-1呢，就是你的第 ...
vgra 发表于 2010-02-02 17:19

255就是-1，因为退出码是8位的。

yecheng_110

建议用POSIX
use POSIX qw(:sys_wait_h);
WIFEXITED($?)
WEXITSTATUS($?)

vgra

回复 4# engrol

这么说其实那个 if ($? == -1) 的分支永远也执行不到啰

engrol

回复 6# vgra


    unix中程序退出被父进程捕捉到的一个值是16位的整数，其中低8位就是退出码(exit函数的参数)，高八位做其他用。

   如果直接用 $?来表示退出码，只有当高八位为0是才是对的。

   显然在perl中，既然没有与那些寄存器密切相关的概念，$?很难等于-1。