Инициирование неосведомленного фонового процесса в Perl

Question

У меня есть сценарий Perl, который должен запустить другой процесс в фоновом режиме и выйти, не дожидаясь завершения другого скрипта. Есть много потоков на StackOverflow, которые покрывают, как ждать на Perl или как не ждать других языков программирования, но я не могу найти правильный ответ для Perl.

Я читал немного и думал, что делаю правильные вещи, но ни одна из моих попыток, похоже, работает правильно. Вот все изменения, которые я пробовал до сих пор не дало никаких результатов:

system(qq|perl /util/script.pl $id|); 

system(qq|perl /util/script.pl $id &|); 

exec(qq|perl /util/script.pl $id|); 

exec(qq|perl /util/script.pl $id &|); 

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

Заранее благодарим за вашу помощь!

---

Полный код, который поможет при отладке. Обратите внимание, что API-> Function() вызовы объектно-ориентированные модули наш базовый код использует для конкретных функций, взаимодействия баз данных и т.д.:

sub Add { 
    my $self = shift; 
    my $domain = shift; 

    if(!$self->IsValid($domain)) { return; } 

    my $SQL = qq| insert into domains set added=NOW(),domain=| . API->Database->Quote($domain); 
    my $sth = API->DatabaseQuery($SQL); 

    $SQL = qq| select last_insert_id() |; 
    $sth = API->DatabaseQuery($SQL); 
    my $id = $sth->fetchrow_array(); 

    my $command = qq|perl /home/siteuser/util/new.pl $id &|; 
    system($command); 

    return {'id'=>$id,'domain'=>$domain}; 
} 

Answer 1

Первый предназначен для работы таким образом - system выполняет команду и отделок для того, чтобы это закончилось.

Последние два также спроектированы таким образом - exec специально разработан, чтобы никогда не возвращаться. Он в основном заменяет родительский процесс дочерним процессом.

Однако второй должен сделать трюк: команда, запущенная из вызова system, является оболочкой, которой дана ваша строка для выполнения. Поскольку строка заканчивается на «&», это означает, что оболочка запустит вашу команду в качестве фонового процесса и завершит свое собственное выполнение после этого запуска.

Можете ли вы отправить больше кода, иллюстрирующего, как № 2 не работает?

Кроме того, посмотрим, что произойдет, если вы попытаетесь кавычку или QX:

my $output = qx|perl /util/script.pl $id &|; 
print $output; 

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

my $output = qx|(echo "AAAAAAA"; /bin/date; sleep 5; /bin/date; echo "BBBBBBB") &|; 
print $output; 

Answer 2

Использование вилки является хорошим способом для фоновых процессов:

my $pid = fork; 
die "fork failed" unless defined $pid; 
if ($pid == 0) { 
    # child process goes here 
    do '/util/script.pl'; 
    exit; 
} 
# parent process continues here 

Answer 3

вы звоните fork() перед вызовом system или exec?

my $pid = fork(); 
if (defined($pid) && $pid==0) { 
    # background process 
    my $exit_code = system($command); 
    exit $exit_code >> 8; 
} 


my $pid = fork(); 
if (defined($pid) && $pid==0) { 
    # background process 
    exec($command); 
    # doesn't^H^H^H^H^H^H shouldn't return 
} 

Answer 4

Необходимо отделить ребенка от родителя. См. Perldoc -q daemon. Или Proc::Daemon