子プロセス孫プロセスひ孫プロセス...を一気に殺す / [programming][perl] | 戯術者の日記

子プロセス孫プロセスひ孫プロセス...を一気に殺す / [programming][perl] | 戯術者の日記

少なくとも子プロセスの pid はわかってるはずだから、プロセスグループ ID を取得して、kill する。 $p...概要を表示 少なくとも子プロセスの pid はわかってるはずだから、プロセスグループ ID を取得して、kill する。 $pgrp = getpgrp $chld_pid; kill -9, $pgrp; kill の第一引数は、送りたいシグナル番号。 かなりドンくさいけどテストコード if ($pid[0] = fork) { # oya; local $SIG{INT} = sub { my $pgrp = getpgrp $pid[0]; print "pgrp: ", $pgrp, "\n"; print "catch ", shift, " (oya)\n"; kill -15, $pgrp; exit; }; &loop; } elsif (defined $pid[0]) { if ($pid[1] = fork) { # ko local $SIG{TERM} = $SIG{HUP}