Initialisation du processus d'arrière-plan non-en attente en Perl

Question

J'ai un script Perl qui doit lancer un autre processus en arrière-plan et quitter sans attendre que l'autre script se termine. Il y a beaucoup de threads sur StackOverflow qui couvrent comment attendre en Perl ou comment ne pas attendre d'autres langages de programmation, mais je n'arrive pas à trouver la bonne réponse pour Perl.

J'ai beaucoup lu et je pensais que je faisais les bonnes choses, mais aucune de mes tentatives semblent fonctionner correctement. Voici toutes les variations que je l'ai essayé jusqu'à présent en vain:

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 &|); 

Avec chacun de ces processus parent continue d'attendre l'enfant à terminer avant de quitter. S'il vous plaît laissez-moi savoir ce que je fais mal et la bonne façon de bifurquer le processus d'arrière-plan.

Merci d'avance pour votre aide!

---

Code complet pour faciliter le débogage. Notez que les appels API-> Fonction() sont des modules orientés objet de notre base de code utilise pour des fonctions spécifiques que les interactions de base de données, etc:

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

Le premier est conçu pour fonctionner de cette façon - system exécute la commande et se termine pour qu'il se termine.

Les deux derniers sont également conçus de cette façon - exec est spécifiquement conçu pour ne jamais revenir. Il remplace essentiellement le processus parent par le processus enfant.

Cependant, le second devrait faire l'affaire: la commande lancée à partir de l'appel system est shell, à laquelle est donnée votre chaîne à exécuter. Comme la chaîne se termine par "&", cela signifie que le shell lancera votre commande en arrière-plan et terminera sa propre exécution après ce lancement.

Pouvez-vous s'il vous plaît poster plus de code illustrant comment # 2 n'a pas fonctionné?

Aussi, voir ce qui se passe si vous essayez des accents graves ou QX:

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

En outre, comme un moyen de réduire inconnues, pouvez-vous s'il vous plaît exécutez la commande suivante et dites-moi ce qui imprime:

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

Answer 2

fourche à l'aide est un bon moyen de processus d'arrière-plan:

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

appelez-vous fork() avant d'appeler system ou 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

Vous devez dissocier l'enfant du parent. Voir le démon perldoc -q. Ou Proc::Daemon