在perl中，我的fork进程以""Undefined subroutine &main::fatal called 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内置的，但它是为不可克服(“致命”)错误而调用的子例程的常用名称。显然，脚本中的某些东西正在调用此函数，但它并不存在。

您在脚本中使用了哪些模块？作者可能是故意这样做的，这样您就可以定义一个致命的()并捕获错误。如果你不知道它发生在哪里，你可以把这个添加到wrapper.pl中：

use YAML::XS;

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

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