Блог

Я хотел бы запустить процесс в его собственной группе процессов (или, альтернативно, изменить его группу после запуска) и:

• должны ли процессы в группе отвечать на Ctrl C с терминала
• получить идентификатор группы процессов, чтобы я мог завершить все процессы в группе с помощью kill команды.

Примечание: Я пытался setsid prog [args] , но процессы не реагируют на Ctrl C из терминала, и я не смог получить новый идентификатор группы процессов.

Я также пытался изменить группу процессов с помощью Perl setpgrp($pid, $pid) и POSIX::setpgid($pid, $pid) , безрезультатно.

Редактировать: Большая проблема:

У меня есть процесс (однопоточный; назовем его «продуктивный» процесс P ), который запускает множество дочерних процессов синхронно (один за другим; он запускает новый, когда завершается предыдущий дочерний процесс). Из терминала я хочу иметь возможность убивать P и дерево процессов под ним. Для этого я мог бы просто организовать завершение процессов в P группе. Однако поведение по умолчанию таково, что P процесс находится в группе его родительского процесса. Это означает, что P родительский процесс будет уничтожен, если я уничтожу все процессы в P его группе, если только у меня не есть P и его дерево не находится в их собственной группе.

Мое намерение состоит в том, чтобы уничтожить P и дерево под ним, но не P родительское. Кроме того, я не могу изменить сам код P .

Что значит «запустить процесс в его собственной группе процессов»? Оболочка запускает процессы в их собственных группах процессов, вот как она выполняет управление заданиями (имея группу процессов для процессов на переднем плане и несколько групп процессов для каждого конвейера, запущенного в фоновом режиме).

Чтобы убедиться, что оболочка запускает новую группу процессов для каждого конвейера, вы можете сделать это:

 ps fax -o pid,pgid,cmd | less
  

который покажет что-то вроде:

 11816 11816  |   _ /bin/bash
4759   4759  |       _ ps fax -o pid,pgid,cmd
4760   4759  |       _ less
  

Обратите внимание, что командная оболочка создала новую группу процессов для конвейера, и каждый процесс в конвейере совместно использует эту группу процессов.

Редактировать:

Я думаю, я знаю, к чему вы клоните. Вы вызываете system из Perl. По-видимому, sh -c не создает новые группы процессов, поскольку это оболочка без управления заданиями.

Что бы я сделал, так это fork , затем на дочернем:

 setpgrp;
system("ps fax -o pid,pgid,cmd");
  

и wait на родительском.

РЕДАКТИРОВАТЬ: Если то, что вы хотели сделать, это использовать setsid, но найти идентификатор сеанса и / или pid результирующего процесса:

Если вы запустите процесс с помощью команды setsid, он не будет подключен к вашему терминалу, поэтому, конечно, он не будет реагировать на ctrl-c.

Вы могли бы найти это, просматривая выходные данные

 ps x -O sid 
  

или что-то более ограниченное, например

 ps x -o %c,%p,sid
  

Или простой поиск через proc / [pid] / stat всех записей и просмотр идентификатора сеанса и всего остального, что представляет интерес (подробнее см. man proc)

Страница руководства для setsid не предоставляет никаких флагов для непосредственного генерирования выходных данных, но вы могли бы тривиально создать свою собственную версию, которая выводит нужную информацию, путем изменения стандарта.

Например, возьмите копию setsid.c из одного из результатов для

http://www.google.com/codesearch?as_q=setsidamp;as_package=util-linux

Прокомментируйте включение nls, параметры локали и макрос ошибки _(«»), который вызовет проблемы, а затем добавьте это прямо перед строкой execvp:

     printf("process will be pid %d sid %dn", getpid(), getsid(0));
  

Вот ответ в коде Perl, следующий предложениям ninjalj выше:

prolific_wrapper.pl

 my $pid = fork();
if (not defined $pid) {

    die 'resources not available';

} elsif ($pid == 0) {

    # CHILD
    setpgrp;
    exit system(prolific => @ARGV);

} else {

    # PARENT
    my $was_killed = 0;
    local $SIG{INT} = sub {
        say 'kill prolific and its tree ...';
        kill KILL => -$pid;
        $was_killed = 1;
    };
    wait;
    my $child_status = $?;
    $SIG{INT} = 'DEFAULT';
    if ($was_killed) {kill INT => $$}
    else {exit $child_status}

}
  

Еще раз большое спасибо!