Perl, ожидающий выхода из не-дочернего процесса

Question

У меня есть сценарий, который используется для повторного развертывания нескольких программ в настраиваемой серверной среде (т. Е. Не установленный стандартный контейнер с горячим отключением кода). Для этого он обрабатывает серверные процессы, но для полного закрытия всех их соединений требуется некоторое время. Это не дочерние процессы perlscript. Они работают в течение сотен дней в то время как обычно, поэтому я бы предпочел не включать процессы сервера в perlscripts, так что я могу разветвить их, чтобы закрыть их элегантно месяцев или лет спустя.

Так что в настоящее время ждать их смерти во время передислокации, я разбираю вывод ps -ef, захватывая поле pid, убивая этот pid, ожидая 60 секунд (что кажется разумным временем с этими процессами), перепроверяя ps -ef, чтобы убедиться, что они мертвы и т. Д. Продолжайте с копиями, chmods и т. Д.

Это решение кажется мне хромым/неуклюжим. Я google'd повсюду и ничего не видел по этой теме; есть куча материала о ожидании раздвоенных детей, и ожидание было бы идеальным, если бы оно действовало именно таким образом.

От чтения How to wait for exit of non-children processes (что соответствует c) Я предполагаю, что действительно не так много, что я могу сделать, кроме чтения/proc/pid, но я подумал, может быть, там будет решение, зависящее от perl где-то. Есть идеи?

Answer 1

Вы можете использовать kill 0, $pid (возвращает 1 на успех и 0 при сбое) вместо перепроверки ps -ef, но у этого есть возможная возможность, чтобы pid мог быть повторно использован.

Если у вас уже есть ps-синтаксический код, вероятно, его не стоит переключать, но есть Proc::ProcessTable.

Кроме этого нет идей.

Answer 2

В Unix \ Linux только родительский процесс получает сигнал, когда процесс выходит из родительского процесса. Это функция ОС, а не язык.

Другие решения будут эквивалентны с вашими - проверка таблицы процессов для существования процесса (хотя конкретный способ может изменяться - как с помощью пс или непосредственно запрашивая ядро)