Discussion :

[djibril]

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

[Woufeil]

Salut,

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

[djibril]

Code :

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

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.

[Woufeil]

Et bien, utilise l'accesseur pid ou la méthode running.

Moi, je verrais un truc du genre :

Code :

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

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.

[djibril]

bon je teste vite fait

[djibril]

ça marche mais affiche des caracteres bizarre

[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ï