perl 线程在分离后死亡

Question

我需要创建一个线程并让它做一些事情。主要原因是尽快退出主程序。 但是在我分离线程并结束主程序后，线程就死了。在我的示例中，该文件不包含预期数据。 如果我让主程序休眠 5 秒，一切正常。

从主程序退出后如何让线程运行？

use threads;
print "Starting main program\n";
my $t = threads->new(\&sub1)->detach();
print "End of main program\n";

sub sub1 {
        print "started thread\n";

        open (FILE, ">>./test.txt") or die($!);
        print FILE localtime(time())."\n";
        foreach (1..3){
          print FILE "$_\n";
          sleep 1;
        }
        close(FILE);
         return 1;
}

Answer 1

很简单，你不能。

• $thr->detach()
  使线程不可连接，并导致丢弃任何最终返回值。当程序退出时，任何仍在运行的分离线程都将被静默终止。

但你可以这样做：

threads->new(\&sub1)->join();

但这很难让你买多少。因为线程主要用于在您继续做某事的同时做其他事情。几乎没有理由停止执行主线，然后运行一个线程，而您也可以调用 sub1();

Answer 2

你不能使用线程，但你可以 fork 并让父进程退出而不等待子进程完成：

my $pid = fork();
if ($pid == 0) {
  print "child proc\n";
  sleep 5;
  print "child, 5 seconds older\n";
  exit(0);
} else {
  print "parent proc. goodbye\n";
}

我认为这不是一个很好的方法，因为您现在已经失去了对子进程的控制。为什么不直接运行它并在后台运行它？

编辑：这当然也有可能产生僵尸进程，这会消耗系统资源。和大脑。