kill command in perl?

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

Replies are listed 'Best First'.
Re: kill command in perl? by etcshadow (Priest) on Jul 30, 2004 at 03:28 UTC
If I understand what you're asking, it's as simple as: `$SIG{INT} = $SIG{TERM} = sub { kill 15 => @process_i_want_to_term; exit; };` [download] or perhaps even `END { kill 15 => @process_i_want_to_term; }` [download] `------------ :Wq Not an editor command: Wq` [download]	[reply] [d/l] [select]
Re: kill command in perl? by pbeckingham (Parson) on Jul 30, 2004 at 03:27 UTC
Take a look at signal handlers and the kill function.	[reply]
Re: kill command in perl? by hbo (Monk) on Jul 30, 2004 at 07:20 UTC
But if those processes are running on "other servers," you will have to issue a remote kill, with the shell, in that signal handler: $SIG{INT} = $SIG{TERM} = sub { `ssh remote_server killall -9 everything`; exit; }; [download] You might want to be more selective than in the example. 8) `"Even if you are on the right track, you'll get run over if you just sit there." - Will Rogers`	[reply] [d/l]
Re^2: kill command in perl? by Joost (Canon) on Jul 30, 2004 at 08:53 UTC
And don't use killall for this on solaris! "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply]
Re^2: kill command in perl? by exussum0 (Vicar) on Jul 30, 2004 at 10:39 UTC
The easiest way to be more selective, is to generate a random number, md5 it and pass it along as a dummy parameter. I've done that by wrapping the target server program in a perl script, and simply ignoring it. When I have to kill the thing off, i check the process list for that random number so that I kill less things off. I also have the perl script on the remote server kill itself off in reasonable time in case someone yanks a net cable. Bart: God, Schmod. I want my monkey-man.	[reply]