Как мне разветвить новый процесс и вернуть его PID в Perl?

Question

Моя проблема связана с использованием fork () в коде Perl. Я хочу запустить новый процесс, перехватить его PID и вернуть его в программу вызываемого абонента. Есть ли какая-нибудь команда в Perl, которая сделала бы это возможным?

Answer 1

my $pid = fork();
if ($pid == 0)
{
    # We are the child.
}
elsif defined($pid)
{
    # We are the parent of child with PID=pid
}
else
{
    # The fork failed
}

Answer 2

да, fork

Цитирование с этой страницы:

  

Возвращает дочерний pid родительскому.   процесс , 0 для дочернего процесса или    undef , если форк не удался.

Answer 3

fork возвращает дочерний pid для родителя и 0 для дочернего.

Answer 4

Ну, функция Perl fork возвращает PID дочернего элемента родительскому элементу и 0 дочернего элемента, разве это не то, что вы хотите?