Einleiten des nicht wartenden Hintergrundprozesses in Perl

Question

Ich habe ein Perl-Skript, das einen anderen Prozess im Hintergrund starten und beenden muss, ohne darauf zu warten, dass das andere Skript beendet wird. Es gibt viele Threads in StackOverflow, die beschreiben, wie man in Perl wartet oder nicht auf andere Programmiersprachen wartet, aber ich kann nicht die richtige Antwort für Perl finden.

Ich habe ziemlich viel gelesen und dachte, ich würde die richtigen Dinge tun, aber keiner meiner Versuche scheint richtig zu funktionieren. Hier sind alle Variationen habe ich versucht, so weit ohne Erfolg:

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

mit jedem dieser der Eltern-Prozess weiter zu warten, bis das Kind vor dem Beenden zu beenden. Bitte lassen Sie mich wissen, was ich falsch mache und die richtige Art den Hintergrundprozess zu verändern.

Vielen Dank im Voraus für Ihre Hilfe!

---

Vollständiger Code zur Fehlersuche. Beachten Sie, dass die API-> Funktion() Anrufe objektorientierte Module unserer Code-Basis für bestimmte Funktionen verwendet werden, die Datenbank-Interaktionen, 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

die erste, die Art und Weise zu arbeiten ist so konzipiert - system den Befehl und Oberflächen führen damit es endet.

Die letzten beiden sind auch so konzipiert - exec ist speziell entwickelt, um nie zurückzukehren. Es ersetzt im Grunde den übergeordneten Prozess durch den untergeordneten Prozess.

Die zweite sollte jedoch den Trick machen: Der Befehl, der vom system-Aufruf gestartet wird, ist die Shell, der die auszuführende Zeichenfolge übergeben wird. Da die Zeichenfolge mit "&" endet, bedeutet das, dass die Shell Ihren Befehl als Hintergrundprozess startet und nach diesem Start ihre eigene Ausführung beendet.

Können Sie bitte mehr Code posten, der zeigt, wie # 2 nicht funktioniert hat?

auch sehen, was passiert, wenn Sie Backticks oder qx versuchen:

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

Auch als eine Möglichkeit, Unbekannten zu reduzieren, können Sie bitte die folgende und sagen Sie mir, welche Drucke laufen:

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

Answer 2

Mit Gabel ist ein guter Weg, um Hintergrundprozesse:

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

Sie fork() nennend vor dem Anruf system oder 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

Sie müssen das Kind vom Eltern trennen. Siehe perldoc -q-Daemon. Oder Proc::Daemon