我有一个我正在管理的 Perl 程序,它能够 fork 多个进程(达到指定的限制),监视它们,并在它们退出时 fork 其他进程(再次,直到限制),直到完成要运行的事物列表。它工作正常,除了出于某种原因,它似乎没有从我的子进程中获取正确的退出状态。
不起作用的代码使用Perl的fork()
,waitpid()
,子进程使用POSIX::_exit()
退出。以下是相关代码的一些摘录:
fork 代码:
# Initialize process if running in parallel mode
my $pid;
if ($options{'parallel'} > 0) {
log_status("Waiting to fork test #".$curr_test{'id'}."...\n");
# Here, wait for child processes to complete so we can fork off new ones without going over the specified limit
while ( keys(%children) >= $options{'parallel'}) {
my $kid = waitpid(-1, 0);
my $kid_status = $?;
if ($kid > 0) {
log_status("Child process (PID ".$kid.", test ".$children{$kid}.") exited with status ".$kid_status.".\n");
$error_status |= $kid_status;
delete $children{$kid};
}
}
$pid = fork();
tdie("Unable to fork!\n") unless defined $pid;
if ($pid != 0) {
# I'm the parent
$is_child = 0;
log_status("Forked child process (PID ".$pid.").\n");
$children{$pid} = $curr_test{'logstr'};
next TEST_LOOP;
}
else {
# I'm the child
$is_child = 1;
log_status("Starting test = ".$curr_test{'logstr'}."\n");
}
}
退出子进程代码:
### finish_child() ###
# Handles exiting the script, like the finish() function, but only when running as a child process in parallel mode.
# Parameters:
# - The error code to exit with
###
sub finish_child( $ ) {
my ($error_status) = @_;
# If running in parallel mode, exit this fork
if ($options{'parallel'} > 0) {
log_status("Entering: ".Cwd::abs_path("..")."\n");
chdir "..";
log_status("Exiting with status: ".$error_status."\n");
POSIX::_exit($error_status);
}
}
这是在我的示例运行中调用 finish_child()
的地方:
# If build failed, log status and gracefully clean up logfiles, then continue to next test in list.
if ($test_status > 0) {
$email_subject = "Build failed!";
log_status("Build of ".$testline." FAILED.\n");
tlog(1, "Build of ".$testline." FAILED.\n");
log_status("Entering: ".Cwd::abs_path("..")."\n");
chdir "..";
log_report(\%curr_test, $test_status);
# Print out pass/fail status for each test as it completes
$quietmode = $options{'quiet'}; # Backup quiet mode setting
$options{'quiet'} = 0;
if ($test_status == 0) {
log_status("Test ".$testline." PASSED.\n");
tlog(0, "Test ".$testline." PASSED.\n");
}
else {
log_status("Test ".$testline." FAILED.\n");
tlog(1, "Test ".$testline." FAILED.\n");
}
$options{'quiet'} = $quietmode; # Restore quiet mode setting
finish_logs();
# Link logs to global area and rename if running multiple tests
system("ln -sf ".$root_dir."/verify/".$curr_test{'id'}."/".$verify::logfile." ../".(($test_status > 0) ? "fail".$curr_test{'id'}.".log" : "pass".$curr_test{'id'}.".log" )) if (@tests > 1);
if ($options{'parallel'} > 0 && $pid == 0) {
# If we're in parallel mode and I'm a child process, I should exit, instead of continuing to loop.
finish_child($test_status);
}
else {
# If we're not in parallel mode, I should continue to loop.
next TEST_LOOP;
}
}
根据我运行的日志,这是我看到的行为:
<Parent> Waiting for all child processes to complete...
<Child> [PID 28657] Entering: <trimmed>
<Child> [PID 28657] Running user command: make --directory <trimmed> TARGET=build BUILD_DIR=<trimmed> RUN_DIR=<trimmed>
<Child> [PID 28657] User command finished with return code: 512
<Child> [PID 28657] Build step finished with return code 512
<Child> [PID 28657] Entering: <trimmed>
<Child> [PID 28657] Build of rx::basic(1) FAILED.
<Child> [PID 28657] Entering: <trimmed>
<Child> [PID 28657] Test rx::basic(1) FAILED.
<Child> [PID 28657] Closing log file.
<Child> [PID 28657] Closing error log file.
<Child> [PID 28657] Entering: <trimmed>
<Parent> Child process (PID 28657, test rx::basic(1)) exited with status 0.
我有使用 Perl IPC 来运行命令的代码(代替 system()
调用,以获得正确获取退出代码的更大灵 active ,您可以在“用户命令”中看到"日志文件中的行。
我在这里做错了什么?在这种情况下,为什么我无法从 $?
获取退出状态?我在网上找到的例子似乎都表明这应该可以正常工作。
作为引用,我正在运行 Perl v5.10.1
。如果您觉得需要查看其余代码,此 Perl 工具也在 GitHub 上开源:https://github.com/benrichards86/Verify/blob/master/verify.pl
最佳答案
如果$test_status
是512,你是在打电话吗POSIX::_exit(512)
?那是不正确的。
子进程应调用 POSIX::_exit
操作数在 0 到 255 范围内,获取该子进程的 Perl 父进程将获得 $?
设置为退出状态 << 8
.
POSIX::_exit(512)
相当于POSIX::_exit(512 % 256)
, 或 POSIX::_exit(0)
.
关于perl - 为什么我不从我的子进程中获取退出状态?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18640737/