Discussion :

[Isalith]

Bonjour,

Je viens de débuter le Perl il y a moins d'une semaine et je me demandais comment récupérer le PID d'un processus (je précise que je travaille sous Windows 7) grâce à des lignes de codes Perl afin de créer un variable avec ce PID.

Je m'explique ! Je viens de créer un programme qui ferme un processus à son démarrage :

use strict;
use warnings;
use Win32:rocess;
use Win32;

my $pid = 3240;
Win32:rocess::KillProcess($pid, 0);

et au lieu de taper manuellement le $pid, j'aimerais le récupérer automatiquement en rentrant par exemple le nom de l’exécutable.
Est ce possible et si oui comment ?


Merci beaucoup !

[ggnore]

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
sub ps{
        my ($pidfile)=@_;
 
        my $exec_time   = 0;
        my $exec_script = '';
        my $exec_pid    = 0;
 
        uptime($pidfile, \$exec_script, \$exec_pid, \$exec_time);
        printf ("\n[$exec_script] already running with pid [$exec_pid] since [$exec_time]\n");
}
 
sub uptime{
        my ($pidfile, $exec_script, $exec_pid, $exec_time) = @_;
 
        my $my_ps = new Proc::ProcessTable;
 
        foreach my $my_proc ( @{$my_ps->table} ){
                if($pidfile->pid eq $my_proc->pid){
                        ${$exec_time}      =   sec2time(time - $my_proc->start);
                        ${$exec_script}    =   $my_proc->cmndline;
                        ${$exec_pid}       =   $my_proc->pid;
                }
        }
}

Si tu écris le pid dans un fichier, tu peux retrouver le pid et le process associé.
http://search.cpan.org/~jwb/Proc-Pro...rocessTable.pm

[Isalith]

Merci pour cette réponse rapide

Je dois avoué qu'à première vue, je ne comprends aps tout mais que je vais m'y pencher

Juste une dernière question, mon problème principal c'est qu'à chaque fois que je relance le processus, son PID change ! Ce code permettra t'il d'éviter ce problème ?

Merci encore !

[ggnore]

Ton script principal (pas celui qui tue), doit écrire dans un fichier son pid à chaque lancement. Avec le script qui tue, tu récupères le pid du script dans le fichier et tu fais ton office.

[Isalith]

D'accord, merci beaucoup