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

Question

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

Answer 1

да, fork

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

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

Answer 2

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 3

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

Answer 4

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