Discussion :

[loula427]

Encore un petit probleme.

J'ai un programme "monitor.pl". Mon but est le suivant :

- monitor.pl doit toujours etre actif.
- Je pensais donc faire un cron de monitor.pl (cf mon autre post dans la meme session), et dans monitor.pl mettre une sous routine qui verifie si monitor.pl est en route si oui la version de monitor.pl que je viens d'executer va etre tuer et la premiere version va continuer a rouler. Dans le cas ou il n'y a pas d'autre monitor.pl en route la version actuelle va rester active.

Dans mon code j'ai mis la sous-routine suivante :

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
sub CheckIfRun {
        my $ps_fh = new IO::Pipe;
        $ps_fh->reader(("ps -ef | grep perl"))
           or die "Can't open pipe from 'ps'.\n";
        my @ps_out = <$ps_fh>;
        $ps_fh->close();
 
        my $Exist = 0;
        foreach my $line (@ps_out){
           next if $line =~ m/\W+\s+\$$/; # Do not take care about this process.
           next if $line !~ m/perl monitortor\.pl/;
           $Exist = 1;
           last;
        }
 
        print "Monitor is already up so exit\n" if $Exist;
        exit 0 if $Exist;
}

Mon probleme est le suivant cela fonctionne en mode debug seulement je ne comprend pas pourquoi, en effet en mode normale le monitor exit toujours !

Quelqu'un a t il une solution a me proposer.

[Meng-tih]

Bonjour,

Il faudra vérifier la présence de 2 fois ton programme monitor.pl avant de quitter celle-la.
En effet,
- un seul monitor.pl => 1 process trouvé, on le laisse tourner
- un monitor.pl déjà exécuté + un monitor.pl qui va s'exécuter => 2 process monitor.pl, le 2ème doit s'arrêter

Le fait qu'en mode debug cela ne kill pas ton process peut être dût au matchage de ton expression régulière.

J'espère que mon explication t'aidera à résoudre ton problème

[loula427]

Merci pour la reponse, du coup ca donne un truc du genre :

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
sub CheckIfRun {
        my $ps_fh = new IO::Pipe;
        $ps_fh->reader(("ps -ef | grep perl"))
           or die "Can't open pipe from 'ps'.\n";
        my @ps_out = <$ps_fh>;
        $ps_fh->close();
 
        my $Exist = 0;
        foreach my $line (@ps_out){
           next if $line !~ m/perl monitor\.pl/;
           $Exist += 1;
           last;
        }
 
        print "Monitor is already up so exit\n" if $Exist > 1;
        exit 0 if $Exist > 1;
}

Hmm je me demande si il y a possibilte de faire autremet j'ai eu beau chercher sous google des truc du genre "perl restart script" je n'est rien touver qui me convienne.

Cette solution pourra le faire je pense, merci.