Perl's kill(): How to check if process group exists?

saintmike has asked for the wisdom of the Perl Monks concerning the following question:

I want to send a signal to a process group, but up-front I'd like to know if it has a chance of succeeding.

Background: perl abstracts the system call killpg() and warps it into kill() with negative signal numbers. So, if you call kill(-15, $pid), perl translates it to killpg(15, $pid) on systems that support killpg().

Problem is that in order to run killpg(0, $pid), I'd have to call kill(-0, $pid) which is the same as kill(0, $pid) and won't trigger the special killpg(0, $pid) behavior.

So, there's no way to check if a process is up but hasn't called POSIX::setsid() or POSIX::setpgid() yet, causing kill(15, $pid) to succeed but kill(-15, $pid) to fail.

Any way around that? I could roll my own killpg() XS module, but I'd rather have it portable across Unix flavors and, ideally, use something that already comes with perl.

Comment on Perl's kill(): How to check if process group exists? Select or Download Code

Replies are listed 'Best First'.
Re: Perl's kill(): How to check if process group exists? by zentara (Archbishop) on Aug 01, 2011 at 13:50 UTC
There are some tips on handling process groups in Killing child process. especially Thelonious's comment about the need for setpgrp(0,0) I'm not really a human, but I play one on earth. Old Perl Programmer Haiku ................... flash japh	[reply]
Re: Perl's kill(): How to check if process group exists? by repellent (Priest) on Aug 07, 2011 at 09:45 UTC
I'm curious if `kill(-0.1, $pid)` would work for you.	[reply] [d/l]

Back to Seekers of Perl Wisdom