Discussion :

[Melvine]

salut,

J'ai un script perl qui appel un autre script perl comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
..
system ('./monscriptappele.pl &');
..

avec cette methode, je peux lancer plusieur fois monscriptappele.pl vu qu'il est en background;

mais le probleme est que si le script principal plante alors tous les scripts qui sont en background vont planter car ils ont été lancer par le script principal;
Comment pourrai je proceder pour que les scripts lancer en background(monscriptappele.pl) continu à tourner même si le script principal plante.

Merci.

[Arioch]

Hello,

juste pour savoir : pourquoi le programme principal est-il susceptible de planter ?

Est-ce parce qu'à certains endroits, tu stoppes de toi-même le programme par du exit( ) ou du die( ) ou bien le programme est-il buggé ?

[Melvine]

il est susceptible de planter pour plusieurs raison,
si jamais quelqu'un le kill sans faire expres par exemple

[Arioch]

si jamais quelqu'un le kill sans faire expres par exemple

Hum..... Eh bien, il faut espérer que les sous-programmes que tu lances ensuite n'avaient pas besoin d'écrire ou de mettre à jour des données qu'utilise le programme principal, sinon je vois mal comment tu peux bétonner ton histoire.

Comment quelqu'un peut s'amuser à tuer le processus d'un programme pendant son exécution ? Tu bosses dans une drôle de boite

[Melvine]

personne n'est parfait, c'est pour cela qu'on fait des test;
si tout le monde faisait aussi bien attention que toi , je pense qu'il n' aurai jamais d'accident;
mais bon c'est pas question de savoir pourquoi le script principal planterai.

Comment quelqu'un peut s'amuser à tuer le processus d'un programme pendant son exécution ? Tu bosses dans une drôle de boite

le script principal appel un autre script perl et c'est fini;il n'attends pas que le script enfant lui renvoi quelquechose.

[Arioch]

personne n'est parfait, c'est pour cela qu'on fait des test;
le script principal appel un autre script perl et c'est fini;il n'attends pas que le script enfant lui renvoi quelquechose.

Si ton script principal n'appelle qu'un seul autre script Perl, fais l'appel en utilisant exec plutôt que system (mais dans ce cas attention : ceci est à faire à la fin de ton script principal, pas n'importe où).

Si ton script principal appelle plusieurs autres scripts, là c'est différent et je te conseillerai, toujours via exec plutôt que system, de faire comme une sorte de chaînage :

Script 1 -> exécute en fin de traitement Script 2
Script 2 -> exécute en fin de traitement Script 3
Script 3 -> exécute en fin de traitement Script 4

etc.

[Jedai]

Non, la solution est de détacher les processus enfants, la façon de procéder dépend de ton système bien sûr. Quel est l'OS ?

--
Jedaï

[Melvine]

je peux pas utiliser exec parceque avec exec une fois lancer le script enfant,celui ci prend la place du pere et donc le pere n 'existe plus;

donc j'utilise system, mais avec system si le pere meurt le ou les fils meurent aussi;

une fois le script pere lancer, je veux qu'il continu a tourner donc la solution exec n est pas bonne

[Jedai]

Bon par exemple si tu es sous Linux, voici ce que dis la FAQ :

>perldoc -q daemon
Found in C:\Lang\Perl\lib\pod\perlfaq8.pod
How do I fork a daemon process?
If by daemon process you mean one that's detached (disassociated from
its tty), then the following process is reported to work on most Unixish
systems. Non-Unix users should check their Your_OS::Process module for
other solutions.

* Open /dev/tty and use the TIOCNOTTY ioctl on it. See tty for
details. Or better yet, you can just use the POSIX::setsid()
function, so you don't have to worry about process groups.

* Change directory to /

* Reopen STDIN, STDOUT, and STDERR so they're not connected to the old
tty.

* Background yourself like this:

fork && exit;

The Proc::Daemon module, available from CPAN, provides a function to
perform these actions for you.

En fait pour ce que tu demandes explicitement, POSIX::setsid() suffirait (après un fork, et avant un exec() ), mais il serait sans doute préférable de suivre ces recommandation pour éviter de perturber les utilisateurs.

--
Jedaï

[Melvine]

j'ai pas trop saisi jedai
tu veux faire ça comment ?

moi j'ai tester cela
mais ça me tue quand même le fils quand je kill le pere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  nohup perl ./script.pl &

[Jedai]

Tu ne sais pas lire l'anglais ? C'est une compétence pratiquement nécessaire pour faire de l'informatique au jour d'aujourd'hui.

Ce que cette question de la FAQ de Perl explique c'est comment créer un daemon, autrement dit un processus détaché de son terminal (tty) mais également de tout processus père (il est dans un groupe de processus à lui tout seul usuellement).

Si tu n'as pas compris tout ça, la solution la plus simple pour toi actuellement est sans doute d'utiliser Proc-Daemon pour tout faire pour toi, sinon il faut que tu forkes puis utilise POSIX::setsid() au minimum pour faire ce que tu veux.

--
Jedaï

[Melvine]

merci;
je vais me renseigner sur forker un process et utiliser POSIX::setsid()

[Melvine]

mon code se presente ainsi,
cela veux dire que je dois faire un fork juste avant mon system et appeler seulement mon script sans utiliser nohup et &.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
my $dbh = DBI->connect("dbi:Oracle:$dbname", $user, $passwd) or 
die "Database connection not made: $DBI::errstr";
 
my $req ="select * from param where pm='PLI'";
 
my $sth=$dbh->prepare($req);
$sth->execute();
 
while (my ($a,$b,$c,$d) = $sth->fetchrow_array()) 
{
$times = $d;
 
 
 
my $dossier = $a;
my $appli=$c;
 
 
system ('nohup perl ./fact.pl -d '.$dossier.' -c '.$appli.' -b '.$b.' &');
 
}
 
$sth -> finish;
 
$dbh -> disconnect;

[Jedai]

Oui, et utilise exec() plutôt que system(), après avoir utilisé POSIX::setsid() bien sûr.

--
Jedaï

[Melvine]

en faite je suis super pedu,
le fork je connais pas trop;
je lis les doc sur le net, sa permet de creer un nouveau process qui sera dependant du pere;donc sil pere meurs il continu à vivre;
mais je vois vraiment pas comment l'integrer dans mon code

j'ai trouver un site ou il en parle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
defined (my $kid = fork) or die "Cannot fork: $!\n";
if ($kid) {
    # Parent runs this block
}
else {
    # Child runs this block
    setsid or die "Can't start a new session: $!";
    # ...
}

mais je pije pas trop ou je devrais mettre ça;
je dois dire je suis perdu la

[Melvine]

j'ai essayer cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
while (my ($a,$b,$c,$d) = $sth->fetchrow_array()) 
{
$times = $d;
 
 
 
my $dossier = $a;
my $appli=$c;
 
$pid = fork;
if ($pid == 0) 
{ 
exec ('./fact.pl -d '.$dossier.' -c '.$appli.' -b '.$b.' &');
}
 
}

mais quand je tue le pere les fils meurs

[Jedai]

C'est pour ça qu'il faut que tu utilises POSIX::setsid() dans le fils ! Là ce que tu as écris c'est presque exactement l'équivalent de system() (tu rajoute un waitpid() dans le père et tu as exactement system() ). As-tu compris comment le fork marchait ou te contentes tu de recopier un truc que tu as lu sur le net ? Je peux expliquer si tu as besoin.

--
Jedaï

[Melvine]

je veux bien que tu m'explique mais avant je te dit ce que j'ai compris;
le system en faite il fait un fork, c'est pour cela qu'on utilise l' exec;
Pour le fork , il va creer un nouveau process qui aura son propre pid et donc qui se sera totalement independant du pere;
dans la doc il dise que cela permet au processus en cours (donc le pere) de se dupliquer;
moi ce que je souhaites c'est que le script principale, permet de lancer plusieurs fois le script ./fact.pl , et que le script principale continu a tourner;
si jamais le script principale plante et s'arrete de tourner,les scripts enfant eux doivent continuer à tourner;
et donc le fork va permettre de rendre chaque script enfant (./fact.pl ) independant.

c'est bien cela ?

[Jedai]

Un fork() (ou embranchement en français) permet de dupliquer un processus, le nouveau processus continue à s'exécuter à partir du fork(), mais dans le fils le fork() retourne 0 alors que dans le père il retourne le pid du fils. Cependant le fils n'est absolument pas indépendant du père, il font partie du même groupe de processus et si tu tues le père, le groupe meurt avec lui (et donc le fils aussi).

Ce que tu dois faire c'est ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
use POSIX ();
 
while (my ($dossier,$b,$appli,$d) = $sth->fetchrow_array()) { 
  $times = $d;
 
  $pid = fork; 
  if ($pid == 0) { 
    POSIX::setsid();
    exec ('./fact.pl', -d => $dossier, -c => $appli, -b => $b); 
  }
}

Ou quelque chose d'approchant.

--
Jedaï

[Melvine]

en le faisant comme ceci, ça à l'air de fonction, j'ai tester;
la seule chose que j'ai rajouté c'est le "&" pour le mettre en background;
j'ai lancer mon script principal, je l'ai killer
et j'ai fait un ps -ef | grep fact.pl et j'ai bien un ou plusieurs fils qui continu à tourner sachant que le pere est mort.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
use POSIX ();
 
while (my ($dossier,$b,$appli,$d) = $sth->fetchrow_array()) { 
  $times = $d;
 
  $pid = fork; 
  if ($pid == 0) { 
    POSIX::setsid();
    exec ('./fact.pl -d '.$dossier.' -c '.$appli.' -b '.$b.' &');
  }
}