Question

在我的主程序中，我使用以下方式分叉：

pid = fork();
if ($pid == 0) {
   exec("$wrapper_file $hours_run");
   exit 0;
}

并做一些其他的工作。

并在我的包装文件中：

$test_run = time();
while ($test_run < $hours_run) {
     do $node_grp_submit; # -------------------->script does some work
     sleep 30;
     $test_run = time();
}

如果我运行4个小时，脚本运行正常。

但如果我运行的持续时间更长（比如5-8小时），我的包装器脚本就会终止 Undefined subroutine &main::fatal called at wrapper.pl。

Answer 1

fatal()不是内置的perl，但它是一个常用的名称，用于调用不可克服（“致命”）错误的子程序。显然，脚本中的某些东西正在调用此函数，但它不存在。

您在脚本中使用了哪些模块？作者可能是故意这样做的，因此您可以定义致命（）并捕获错误。如果你无法弄清楚它发生在哪里，你可以将它添加到wrapper.pl：

use YAML::XS;

sub fatal () {
    print Dump caller 1;
    print Dump @_;
    die "FATAL!";
}

这将为您提供有关从（Dump caller 1）调用子的位置以及参数堆栈中的内容的一些详细信息。

在perl中，我的fork进程终止于“”未定义的子例程＆amp; main :: fatal在wrapper.pl中调用“

1 个答案: