Wie kann ich mit Perl einen ganzen Prozessbaum töten?

Question

Was ist der beste Weg, um einen Prozess und alle seine untergeordneten Prozesse von einem Perl-Skript zu beenden? Es sollte mindestens unter Linux und Solaris laufen und keine Installation zusätzlicher Pakete erfordern.

Meine Vermutung wäre, eine Liste aller Prozesse und ihrer Eltern durch Parsing von Dateien in/proc oder durch Parsing der Ausgabe von ps (von denen keine scheint tragbar zwischen Linux und Solaris) zu erhalten; und dann alle Prozesse im Baum (die anfällig für Race-Bedingungen zu sein scheint).

Ich könnte mit den Rennbedingungen in diesem speziellen Fall leben, aber wie bekomme ich portabel die Prozessliste?

Answer 1

Wenn Sie mit dem Töten einer Prozessgruppe leben können, können Sie die folgende verwenden:

kill -$signum, $pgid; 

wo $signum die Signalnummer ist, und $pgid ist die Prozessgruppen-ID. Allerdings Signalnummern sind nicht sehr tragbar, in diesem Fall können Sie (auf einigen Plattformen; perlfunc, um Erläuterungen lesen) die folgenden Schritte aus (SIGTERM, zum Beispiel senden):

kill 'TERM', -$pgid; 

Answer 2

CPAN eine Antwort hat. Ja, ich kenne Sie nicht zusätzliche Module installieren wollte, aber zumindest können Sie bei der Implementierung und sehen, was sie tun ...

https://metacpan.org/pod/Proc::ProcessTable

Answer 3

I angepasst und gehackt „RKill“ das zu tun Job, es war einfach.

https://gitlab.com/pslist/pslist/blob/master/pslist

Dies ist Teil von "pslist" -Paket in z.B. Ubuntu.