Wie kann ich einen ganzen Prozessbaum mit Perl beenden?

Question

Was ist der beste Weg, um einen Prozess und alle seine Kindprozesse aus einem Perl-Skript zu beenden? Es sollte zumindest unter Linux und Solaris laufen und keine Installation von zusätzlichen Paketen erfordern.

Meine Vermutung wäre, eine Liste aller Prozesse und ihrer Eltern zu erhalten, indem man die Dateien in /proc oder die Ausgabe von ps (beides scheint nicht zwischen Linux und Solaris übertragbar zu sein); und dann das Beenden aller Prozesse im Baum (was anfällig für Race Conditions zu sein scheint).

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

Answer 1

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

kill -$signum, $pgid;

où $signum ist die Signalnummer, und $pgid ist die Prozessgruppen-ID. Signalnummern sind jedoch nicht sehr portabel, in diesem Fall können Sie (auf einigen Plattformen; siehe perlfunc zur Erläuterung) tun Sie Folgendes (zum Senden SIGTERM zum Beispiel):

kill 'TERM', -$pgid;

Answer 2

CPAN hat eine Antwort. Ja, ich weiß, Sie wollten keine zusätzlichen Module installieren, aber zumindest können Sie sich die Implementierung anschauen und sehen, was sie tun...

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

Answer 3

Ich habe "rkill" angepasst und gehackt, um die Aufgabe zu erledigen, das war einfach.

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

Dies ist Teil des Pakets "pslist" in z.B. Ubuntu.