Question

考虑fork(,然后等待一名儿童在Perl死亡:

#!/usr/bin/perl

use strict;
use warnings;

if (fork() == 0) {
        exit(1);
}

waitpid(-1,0);

print $?;

操作Solais 10号文字,我得出这一结果:

$ perl test.pl
256

我怀疑这些价值观正在向上转移,因为当我读到exit(2)时,该产出就变成了512<>。



我似乎无法在以下每一页找到这一文件:waitpid。 这是否是对我的制度的一种ug笑,或者我是否做过错?

Answer 1

http://perldoc.perl.org/perlvar.html” rel=“noretinger”>perlvar man page。

i.e. 实际退出代码为$? >> 8 。

Answer 2

该儿童甚至可能甚至不必打电话exit。因此,$?比exit parafalls提供更多信息。

if    ( $? == -1  ) { die "Can t launch child: $!
"; }
elsif ( $? & 0x7F ) { die "Child killed by signal ".( $? & 0x7F )."
"; }
elsif ( $? >> 8   ) { die "Child exited with error ".( $? >> 8 )."
"; }
else                { print "Child executed successfully
"; }

http://perldoc.perl.org/Functions/system.html” rel=“nofollow”system。页: 1

友情链接