Discussion :

[dmganges]

Bonjour,

En vue de tuer des processus connus par leurs noms ex skype.exe contenus dans une liste... j'utilise Win32:: Process::List qui renvoie une liste comme :

612 services.exe
2396 sftlist.exe
2156 sftvsa.exe
320 smss.exe
1488 spoolsv.exe
1844 sqlservr.exe
2188 sqlwriter.exe
1168 svchost.exe
368 svchost.exe
1044 svchost.exe
468 svchost.exe
3364 svchost.exe
1076 svchost.exe
768 svchost.exe
1516 svchost.exe
120 svchost.exe
1816 svchost.exe
848 svchost.exe
5020 svchost.exe
2300 svchost.exe
3596 taskeng.exe
4404 taskeng.exe
3552 taskhost.exe
544 wininit.exe
664 winlogon.exe

Voici ce que je fais, qui fonctionne bien et qui me convient amplement, sauf que ça ne ressemble pas beaucoup à du perl

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
25
26
27
28
29
30
31
32
33
#! perl
use warnings;
use strict;
use utf8;
use Win32::Process::List;									# Liste des processus en cours
use Win32::Process;												# Pour tuer un processus
 
my $Proc = Win32::Process::List->new();
my %ListProc = $Proc->GetProcesses();
my $NbProc = keys (%ListProc);
 
print "\n\nAvec doublons sur les noms de process\n";
foreach my $Pid (sort { $ListProc{$a} cmp $ListProc{$b} } keys %ListProc ) {
	my $Name = $ListProc{$Pid};
	printf "%4d %25s\n", $Pid, $ListProc{$Pid};
}
 
print "\n\nSuppression...\n";
my $Name = "" ;
my $OldName = "";
foreach my $Pid (sort { $ListProc{$a} cmp $ListProc{$b} } keys %ListProc ) {
	$Name = $ListProc{$Pid};
	if ( $Name eq $OldName ) {
		delete $ListProc{$Pid};
	}
	$OldName = $Name;
}
 
print "\n\nDoublons supprimés\n";
foreach my $Pid (sort { $ListProc{$a} cmp $ListProc{$b} } keys %ListProc ) {
	my $Name = $ListProc{$Pid};
	printf "%4d %25s\n", $Pid, $ListProc{$Pid};
}

J'ai cherché sur le net, probablement mal, mais je n'ai pas trouvé mieux que la méthode à l'ancienne...

Comment supprimer des values en doubles dans un hash... en perl véritable ?
MERCI d'avance !

[Philou67430]

Souhaiterais-tu, par exemple, conserver tous les numéros de processus de chaque programme, dans une structure de ce type :

Code :

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

1
2
3
4
 
%process = ( "services.exe" => [ 612 ],
         "svchost.exe" -> [ 1168, 368, ... ],
         ...);

Si non, quel processus souhaiterais-tu conserver ?

[dmganges]

Bonjour, et merci Philou67430,

Non je souhaite seulement récupérer une liste des noms de process (sans les pid), et sans les doublons des noms.

En fait cette liste me permet de mettre à jour un fichier .ini, à partir duquel :
- je décide de de killer certains processus (je tue à tour de bras) TOUS les process, même lorsqu'ils existe en plusieurs exemplaires en mémoire [KILL]
- je contrôle au boot (-2mn) les intrus à partir de [LISTFIRST]
- je contrôle régulièrement à partir de[LISTNEXT]

Il me faut seulement construire [LISTNEXT] sans doublons à partir de
my %ListProc = $Proc->GetProcesses();

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
[GLOBAL]
     Debug: OUI
      Kill: OUI
  Controle: OUI
   NbFirst: 50
    NbNext: 81
 TempoKill: 120000
 
[OLD]
Proc: Skype.exe
 
[KILL]
Proc: Skype.exe
    : BTTray.exe
    : BluetoothHeadsetProxy.exe
    : BTStackServer.exe
 
[LISTFIRST]
Proc: BTTray.exe
    : Skype.exe
    : agent.exe
    : audiodg.exe
    : reader_sl.exe
    : userinit.exe
 
[LISTNEXT]
Proc: Admload.exe
    : CVHSVC.EXE
    : IAStorDataMgrSvc.exe
    : IAStorIcon.exe
    : ISBMgr.exe
    : ISUSPM.exe
    : KHALMNPR.exe
    : LMS.exe
    : MsMpEng.exe
    : NisSrv.exe
    : PMBDeviceInfoProvider.exe
    : PMBVolumeWatcher.exe
    : SPMService.exe
    : SPMgr.exe
etc...

Actuellement je construis cette liste :

Code :

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

1
2
3
4
5
6
 
...
$ListNextExist = "$ListNextExist$Name\n"; # Je boucle la dessus
...
$Process{LISTNEXT}{Proc} = $ListNextExist;
write_config %Process, $FicIni;

Dans $ListNextExist les noms étant séparés par des \n, je n'ai plus qu'à coller dans le fichier...

En fait dans la suppression des doublons, le pid n'a pas d'importance.

Encore MERCI

[Jiheme44]

question bête : c'est pour déployer sur un réseau de pc ou juste ton pc personnel ?
dans le second cas, si j'ai bien compris, tu fonctionnes sous windows, tu as l'utilitaire msconfig pour gérer les programmes qui sont lancés au démarrage.

sinon, la fonction keys() en perl te renvoie la liste des clés d'un hash, et normalement chaque clé est unique. tu peux ensuite utiliser la fonction sort() pour trier cette liste de clés.

Code :

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

1
2
3
4
5
 
my $Proc = Win32::Process::List->new();
my %ListProc = $Proc->GetProcesses();
 
my @tab_ListProc = sort( keys( %ListProc ) );

[dmganges]

Merci Jiheme44,
C'est juste pour mon PC personnel, en fait pour m'entretenir le neurone...
Je suis bien sous Win7.

Oui les Keys sont uniques mais pas les Values c'est pour cela que je trie :

Code :

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

foreach my $Pid (sort { $ListProc{$a} cmp $ListProc{$b} } keys %ListProc )

et désire, si possible sur la même ligne supprimer les doublons sur les Values...

A ce jour je n'ai pas trouvé, mais peut-être mal cherché comment skype est lancé au démarrage, voir ma requête précédente :
http://www.developpez.net/forums/d13...t-envahissant/
Et je ne supporte pas un pgm de 60Mo en mémoire dont je ne sais ce qu'il fait...
Mes origines ont fait de moi un parano...

En fait ma question concerne davantage la philosophie du hash en perl...
Ce bout de code suffit amplement :

Code :

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

1
2
3
4
5
6
7
8
9
10
print "\n\nSuppression...\n";
my $Name = "" ;
my $OldName = "";
foreach my $Pid (sort { $ListProc{$a} cmp $ListProc{$b} } keys %ListProc ) {
	$Name = $ListProc{$Pid};
	if ( $Name eq $OldName ) {
		delete $ListProc{$Pid};
	}
	$OldName = $Name;
}

[trex7g2]

alors skype tourne en tache de fond, comprendre il se connecte a ton compte, charge la liste de tes contacts etc... si tu veux alléger un peu ta mémoire, tu peux toujours l'empêcher de se lancer au démarrage : le mieux c'est d'executer msconfig, et de chercher dans l'onglet démarage la ligne correspondant a skype. Il me semble que pour skype tu peux même le désactiver depuis les options...

edit... lire le message de l'auteur c'est bien

pour ta question sur perl : tu peux inverser tes clés et tes valeurs mais avec des résultats assez aléatoires. Par contre, rien ne t'empêche de faire toi même une hash avec tes PId comme clé, qui seront par conséquent unique (puisque dans une hash)

sinon il y a des modules qui gèrent les listes mais bon... c'est un marteau piqueur pour planter une épingle.