perl processus d'arrière-plan

Je suis en train de lancer un processus en arrière-plan en perl. J'ai créer un processus fils, qui est utilisé pour appeler un autre script perl. Je veux l'exécuter en quelques lignes de code, parallèlement à ce processus enfant. Et après le processus de l'enfant est fait.Je veux imprimer une ligne de code.

Script principal

#!/usr/bin/perl

$|=1;

print "before the child process\n";

my $pid = fork();

if (defined $pid)
{
    system("perl testing.pl");
}

print "before wait command\n";

wait();

print "after 20 secs of waiting\n";

testing.pl

#!/usr/bin/perl

print "inside testing\n";

sleep(20);

Résultats attendus

avant le processus de l'enfant 
avant d'attendre de commande 
(faut attendre 20 secondes et ensuite l'imprimer) 
après 20 secondes d'attente

Si ce que vous voir à la place? Il est intéressant de noter que tout ce qui est après le system appel sera exécuté par , le parent et l'enfant.
u r droit.. c'est de l'impression à deux reprises. comment puis-je contrôler?
rêveur: C'est parce que 0 defined valeur en Perl.
Enlevé le bug que vous avez ajoutés dans un montage.
même après qui est fixe, le code après, il est exécuté à la fois le parent et l'enfant, car le if branche contient pas de exit.

OriginalL'auteur dreamer | 2012-11-23

7

Il y a beaucoup de problèmes avec votre script. Toujours:
```
use strict;
use warnings;
```
localising variables spéciales est une bonne pratique. Seulement une variable contenant la valeur spéciale undef retourne la valeur false pour defined. Donc, tous les autres de la valeur (même un 0; ce qui est le cas ici) renvoie la valeur true pour defined. Dans l'autre script, le shebang est faux.
```
#!/usr/bin/perl

use strict;
use warnings;

local $| = 1;

print "Before the child process\n";

unless (fork) {
    system("perl testing.pl");
    exit;
}

print "Before wait command\n";
wait;
print "After 20 secs of waiting\n";
```
à la suite notamment de la sortie, il fonctionne. merci 🙂

OriginalL'auteur Alan Haggai Alavi
6

La “Processus d'arrière-plan” de la section de la perlipc documentation lit
Vous pouvez exécuter une commande en arrière-plan avec:
```
system("cmd &");
```
De la commande STDOUT et STDERR (et éventuellement STDIN, en fonction de votre shell) sera la même que celle du parent. Vous n'aurez pas besoin d'attraper SIGCHLD raison de la double -fork; voir ci-dessous pour plus de détails.
Ajouter une esperluette à l'argument de system dans votre programme peut grandement simplifier votre programme principal.
```
#! /usr/bin/env perl

print "before the child process\n";

system("perl testing.pl &") == 0
  or die "$0: perl exited " . ($? >> 8);

print "before wait command\n";

wait;
die "$0: wait: $!" if $? == -1;

print "after 20 secs of waiting\n";
```
j'ai raté cette partie par erreur, j'ai compris que dans le code
Greg Bacon a été suggérant que comme une alternative à l'utilisation de fork.
Je n'était pas claire. Voir mise à jour de réponse.

OriginalL'auteur Greg Bacon

fork valeur de retour de la manipulation est un peu délicat, en effet.
Article récent de Aristote dispose d'un agréable et concise de bifurquer idiome, ce qui, dans votre cas, ressemble:

#!/usr/bin/env perl
use 5.010000;
use strict;
use warnings qw(all);

say 'before the child process';
given (fork) {
    when (undef) { die "couldn't fork: $!" }
    when (0) {
        exec $^X => 'testing.pl';
    } default {
        my $pid = $_;
        say 'before wait command';
        waitpid $pid, 0;
        say 'after 20 secs of waiting';
    }
}

Attention à exec $^X => '...' ligne: le $^X variable contient le chemin complet vers l'exécutable Perl courant, de sorte que le "droit Perl version" seront garantis. Aussi, system appel est inutile lorsque vous êtes pré-fork.

OriginalL'auteur creaktive

Vous devez vous connecter pour publier un commentaire.