linux - 如何杀死 fork 进程？

Question

嗯，我是 Perl(或任何一般语言)编程的新手我对该语言有基本的了解，并编写了一个小脚本来运行我的进程的多个 fork 线程，这是该脚本的一个片段。

use Perl6::Slurp;
use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new(10);
my $time = 100;

alarm("$time");

for my $i (0 .. 100) {
  my $pid = $pm->start and next;
  job();
  $pm->finish;
}
$pm->wait_all_children;

sub job {
  print "Function Started On Thread";
}

现在，那不是我的实际代码。但它几乎是对没有功能的总结我希望它在闹钟结束时结束。

现在我不知道这是否是一个简单的操作，但正如我所说，我对一般编程来说真的很陌生。感谢任何提供帮助的人!

Answer 1

向进程组发送信号。只需将以下内容添加到父级:

local $SIG{ALRM} = {
   local $SIG{TERM} = 'IGNORE';
   kill TERM => -$$;
   die "Timed out\n";
};