procédure background unix

Version imprimable

Code:

1 2 3 4 5 print FICH_CFG_TMP "$LINE_FICH[0];$LINE_FICH[1];$LINE_FICH[2];$LINE_FICH[3];$LINE_FICH[4];C;$LINE_FICH[6]"; $COMMAND="$PATH_SCRIPT/tools/lance_dtmep.pl $LINE_FICH[0] > $PATH_SCRIPT/log/$LINE_FICH[0].result"; $timeout_system=(600,$COMMAND); Proc::Background->new($COMMAND);
J'utilise le module background de perl et je met un timeout de 600. Hors je me retrouve à chaque fois avec des defunct ( zombies ) , quelqu'un a t'il trouvé une solution et déjà utilisé ce module
ou alors quelqu'un a t'il une autre commande qui ne produit pas cela ( system, signo.

Avec un fork

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
my $pid = fork();
 
if (!(defined($pid))) {
    die("fork impossible $!\n");
}
elsif ($pid == 0) {
    print("[fils] Je suis le fils !");
    system("$command");
    print("[fils] J'ai executé la commande, je ne sers plus à rien !");
    exit;
}
 
print("[père] Je suis le père et je continue ma route");

06/11/2006, 21h27
pospos

mollux, que cherche tu a faire avec cette ligne ?
$timeout_system=(600,$COMMAND);

d'apres la doc de cpan, le new te retourne un objet, et il faut faire un wait dessus (methode) a la fin pour qu'il soit correctement supprimé

timeout_system est une fonction que tu peux eventuellement utiliser à la place du new, mais tu perds alors tout l'interet du module puisqu'elle va bloquer jusuq'à la fin du process (donc pas background pour un sou)
07/11/2006, 11h33
mollux

concernant MarneusCalgarXP, sa remarque n'est pas valide, je veux lancer le process en tache de fond et qu'il ne part pas en defunct quand il est finit, avec sa commande , cela ne part pas en tache de fond.

Concernant ta reparque judicieuse, pour moi le timeout était un moyen de faire un kill après 600 s mais même en lacant celui ci en tache de fond. Je viens de tester et tu as raison.

Ceci dit, cela ne resoud toujours pas mon problème.
07/11/2006, 12h01
pospos

ce que MarneusCalgarXP t'a montré c'est presque exactement ce que fait le module en question sous le capot (sous unix en tous cas)

pour eviter le defunc il faut que tu fasse un wait sur ton process (à la fin de ton script par exemple)
l'autre possibilité serait de tenter un $SIG{CHLD} = 'IGNORE' mais je ne sais pas si ca marchera ici (et ca ne sera plus portable sur autre chose qu'un unix en tous cas)

j'ai trouvé en testant :

Code:

1
2
3
 
my $proc = Proc::Background->new($COMMAND);
                @CMD_ENCOURS = (@CMD_ENCOURS,$proc);

et ensuite

Code:

1
2
3
4
        foreach $CMD_ENCOURS (@CMD_ENCOURS)
        {
                if ( ! ( $CMD_ENCOURS->alive ) ) { $CMD_ENCOURS->die; ecrit_log "INFO :  KILL du process commande $CMD_ENCOURS"; @CMD_ENCOURS= grep /$CMD_ENCOURS/,@CMD_ENCOURS; }
        }