Recuperer le pid d'un executable

Version imprimable

20/07/2007, 11h52
djibril

Recuperer le pid d'un executable

Salut,
Je voudrais recuperer le pid d'un executable qui tourne sur mon serveur afin de le killer.
Comment faire ça en perl, quel module à utiliser ou la commande adequat à utiliser?

Car cette execute n'a pas de fonctionnalité d'arret comme "toto stop".

Merci
20/07/2007, 13h13
Woufeil

Salut,

Sans aucune certitude, je dirais le module File:: Pid. Je n'ai pas de linux sous la main pour tester par contre :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
use File::Pid;
 
  my $pidfile = File::Pid->new({
    file => '/some/file.pid',
  });
 
  $pidfile->write;
 
  if ( my $num = $pidfile->running ) {
      die "Already running: $num\n";
  }
 
  $pidfile->remove;

perl cree un file.pid, mais mio je ne vois pas commennt recuperer le pid de mon toto.exe par exemple.

20/07/2007, 13h21
Woufeil
Et bien, utilise l'accesseur pid ou la méthode running.

Moi, je verrais un truc du genre :
Code:

1 2 3 4 5 6 my $pidfile = File::Pid->new({ file => '/ton/proxess', }); my $pid = $pidfile->running; print $pid if $pid;
Encore une fois, je n'ai pas testé hein, je ne suis pas sous Linux.
20/07/2007, 13h22
djibril

bon je teste vite fait
20/07/2007, 13h31
djibril

ça marche mais affiche des caracteres bizarre :?
20/07/2007, 13h40
Jedai

Je ne suis pas sûr que vous parliez de la même chose, et je pense que ce que Djibril cherche est plutôt de l'ordre de Proc::ProcessTable, autrement dit il cherche à trouver le PID d'une application en train de tourner, de façon à pouvoir la tuer, un peu comme on fait à la main avec "ps" et "kill" (ou "killall" dont ce module comporte d'ailleurs une copie en Perl), je me trompe ?

--
Jedaï
20/07/2007, 13h48
djibril

Citation:

Envoyé par Jedai

Je ne suis pas sûr que vous parliez de la même chose, et je pense que ce que Djibril cherche est plutôt de l'ordre de Proc::ProcessTable, autrement dit il cherche à trouver le PID d'une application en train de tourner, de façon à pouvoir la tuer, un peu comme on fait à la main avec "ps" et "kill" (ou "killall" dont ce module comporte d'ailleurs une copie en Perl), je me trompe ?

--
Jedaï

Tu ne te trompe pas Jedai :king:
20/07/2007, 13h59
djibril

c'est le module qu'il me fallait, avec celui ci en complement : Proc::ProcessTable ::Process et les deux sont déjà dans le core.

Merci Jedai.
20/07/2007, 14h02
Woufeil

Franchement, je sais pas comment tu fais Jedai... En Perl, tu es carrément infaillible, impossible de te reprendre.

:bravo:
20/07/2007, 14h03
djibril

Jedai est notre grande bibliothéque perl :king: .