mon script ne trouve pas le bon processus

Bonjour,

J'ai fais un script pour arreter puis redémarrer un demon après la vérification du PID . Apparemment il fonctionnait très bien hier et sans aucune modification de ma part il ne fonctionne plus ce matin 8O.

Mon problème vient dans la partie de la vérification du PID. En effet celui est déja arrèté et mon script me trouve toujours un PID. Extrait du script :

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use warnings; use strict; my $daemon="dori"; my $ED="Doce"; my $lmpid1=`ps -ef | grep $daemon | egrep -v grep | awk '{print \$3}'`; my $lmpid2=`ps -ef | grep $daemon | egrep -v grep | awk '{print \$4}'`; if ($lmpid1) { die "[Error] $ED license server doesn't want to stop.\n $daemon is running with PID : $lmpid1 \n or lmgrd is still running with PID : $lmpid2 \n" ; }

---

Il me retourne ceci :
[Error] Doce license server doesn't want to stop.
dori is running with PID : 17667

or lmgrd is still running with PID : 0

Cela est bizarre 8O parce que quand je vérifie le PID 17667 voici ce que j'ai :
~]# ps -aef | grep 17667
root 17667 17666 0 11:17 pts/5 00:00:00 -bash
root 18215 17667 0 11:40 pts/5 00:00:00 ps -aef
root 18216 17667 0 11:40 pts/5 00:00:00 grep 17667

Comme pourrais je avoir le bon PID pour que la vérification fonctionne à tous les coups ?

Merci de votre aide....

J'ai essayé une autre solution :

Code:

---

1 2 3 4 5 6

my $pid=`ps -ef | grep $daemon | grep -v \"\\(log\\|grep\\)\"` ; print "[flag] "print $pid\n"; my @pid=split(/\s+/,$pid); if ($pid) { die "[Error] $EDA license server doesn't want to stop.\n $daemon is running with PID : $pid[1] \n or lmgrd is still running with PID : $pid[2] \n" ; }

---

J'ai pu decouvrir que le ps prenait en compte mon script.pl que j'avais nomé : dori_restart.pl
Donc ma variable $pid prenait la valeur :

[Flag] root 21470 17667 0 14:37 pts/5 00:00:00 /usr/bin/perl ./dori_restart.pl

Baloo :oops:

J'ai donc modifié ma ligne comme suit :

Code:

---

my $pid=`ps -ef | grep $daemon | grep -v \"\\(log\\|grep\\|perl\\)\"` ;

---

Merci ....

Pourquoi n'utilises-tu pas perl pour traiter directement le résultat de ps -ef ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my @pid = qw(ps -ef); my $daemon_re = quotemeta $daemon; @pid = grep { /$daemon_re/ && !/log|grep/ } @pid; if (@pid == 1) { print "one PID found !\n$pid[0]\n"; my @pid_info = split /\s+/, $pid[0]; die "[Error] $EDA license server doesn't want to stop.\n $daemon is running with PID : $pid_info[1] \n or lmgrd is still running with PID : $pid_info[2] \n" ; } elsif (@pid == 0) { print "No PID found\n" if @pid == 0; } else { print "More than one PID found: ", (map "$_\n", @pid); }

---

(je n'ai pas testé)

Utilise le module Proc::ProcessTable pour connaitre très facilement les processus en cours sur ton serveur.

J'ai modifié mon post alors que vous aviez écrits une réponse ..... J'espère ne pas avoir mis le "mess"

Tu as raison Philou à mon niveau c’était fastidieux, mais avec ton coup de pouce j'ai étudié cette solution qui est devenue :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my @pid = `ps -ef`; #print "[Flag] @pid\n"; @pid = grep { /$daemon/ && !/log|grep|perl/ } @pid; #print "[Flag] @pid\n"; if (@pid == 0) { print "one PID found !\n $pid[0]\n"; my @pid_info = split /\s+/, $pid[0]; die "[Error] $EDA license server doesn't want to stop.\n $daemon is running with PID : $pid_info[1] \n or lmgrd is still running with PID : $pid_info[2] \n" ; } elsif (@pid == 0) { print "No PID found\n" if @pid == 0; } else { print "More than one PID found: ", (map "$_\n", @pid); }

---

J'ai cependant une question sur la lignes suivantes :

Code:

---

1 2	elsif (@pid == 0) { print "No PID found\n" if @pid == 0;

---

car apparemment il y a 2 conditions dont je ne vois pas la différence ... ou faut-il réellement l'utiliser comme indiqué

Merci

Naturellement, il faudrait adapter ce que j'ai proposé à l'usage du module proposé par Djibril.

Bonjour,

La ligne suivante :

Code:

---

my @pid_info = split /\s+/, $pid[0];

---

me remonte l'erreur suivante :

Citation:

---

Use of uninitialized value in split at ./licence_restart.pl line 35

---

J'ai essayé en introduisant la ligne my $pid="";
mais cela ne résoud pas mon problème .....

C'est parce que tu as mal recopié ce que je t'ai donné en exemple.
Le premier if doit être ainsi :

Code:

---

if (@pid == 1) {

---

En effet, si tu exécutes un split alors que @pid == 0 (c'est à dire que @pid est vide), le split va échouer :?

Bonjour,

En fait j'avais mit le split avant la conditions comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

my @pid = `ps -ef`; @pid = grep { /$daemon/ && !/log|grep|perl/ } @pid; my @lmpid = split /\s+/, $pid[0]; if (@pid == 1) { print "[Error] The daemon still running:\n $pid[0]\n"; die "[Error] $EDA license server doesn't want to stop.\n $daemon is running with PID : $lmpid[1] \n or lmgr d is still running with PID : $lmpid[2] \n" ; } elsif (@pid == 0) { print "\n\nThe $EDA license daemon is stopping on $host\n" if @pid == 0; } else { die "[Error] Kill the process manually and restart it, because \n the script has got a but \nas more than one PID found: \n", (map "$_\n", @pid); }

---

En le mettant le split apres le premier if, comme Philou m'a corrigé, l'erreur disparaît mais je ne comprend pas bien pourquoi puisque $pid[0] est une colonne de @pid qui initialisée dans la ligne du dessus.
Mais j'ai remarqué que $pid[1] est vide tant que l'on ne fait pas de split, c'est donc un tableau à une seule colonne.
Merci de vos lumières....

Non, @pid ne contient pas les colonnes du processus rechercher. Il contient toutes les lignes de ps -ef qui ont été passées au tamis de grep. Il peut donc contenir une ligne ($pid[0]) si L'UNIQUE processus a été trouvé, ou plusieurs lignes si le grep n'est pas assez restrictif, voir encore aucune ligne si le processus n'est pas trouvé.
Les colonnes du processus sont dans @lmpid, une fois le split effectué sur la ligne $pid[0] (si c'est l'unique processus trouvé). J'ai pris pour hypothèse que si le filtre donne 0 ou plus d'un processus, cela constituait une erreur.

Merci Philou je vais étudier ça .......