在perl中，我的fork进程以" "未定义的子例程&main：：fatal at wrapper.pl 调用"终止

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，但它是用于不可克服("致命"(错误的子例程的常用名称。 显然，脚本中的某些内容正在调用此函数，但它不存在。

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

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

这将为您提供一些关于从何处调用 sub (Dump caller 1 (以及参数堆栈中的内容的详细信息。