Discussion :

[faddou]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
use Win32::Process::Info;
 my $pi = Win32::Process::Info->new ();
 my @pids = $pi->ListPids ();      # Get all known PIDs
   foreach my $pr ( @pids ) {
                print $pr . "\n";
  }
 my @info = $pi->GetProcInfo ();   # Get the max
 foreach my $nn ( @info ) {
                print $nn . "\n";
 }

j'ai un problème d'affichage ce script

Code :

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

1
2
3
4
 my @pids = $pi->ListPids ();      # Get all known PIDs
   foreach my $pr ( @pids ) {
                print $pr . "\n";
  }

ça marche bien et voilà le resultat de PID

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
 
0
4
720
804
828
872
884
1036
1152
1276
1320
1484
1672
1828
1880
2016
312
1052
1748
244
1940
408
1904
516
268
784
1400
3976
3468
2708
3136
3264
1364
2412
2780
3152

mais le probleme d'affichage ne fonctionne pas

Code :

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

1
2
3
4
 my @info = $pi->GetProcInfo ();   # Get the max
 foreach my $nn ( @info ) {
                print $nn . "\n";
 }

et sa resultat

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
HASH(0x1accb10)
HASH(0x1accf18)
HASH(0x1acd734)
HASH(0x1ada5cc)
HASH(0x1adaa1c)
HASH(0x1adae90)
HASH(0x1adb304)
HASH(0x1ae0804)
HASH(0x1ae0c78)
HASH(0x1ae10c8)
HASH(0x1ae153c)
HASH(0x1ae69e8)
HASH(0x1ae6e38)
HASH(0x1ae72ac)
HASH(0x1aec6d4)
HASH(0x1aecb48)
HASH(0x1aecfbc)
HASH(0x1aed40c)
HASH(0x1af3318)
HASH(0x1af37a4)
HASH(0x1af3c18)
HASH(0x1af9220)
HASH(0x1af9694)
HASH(0x1af9b08)
HASH(0x1af9f7c)
HASH(0x1aff0ac)
HASH(0x1aff520)
HASH(0x1aff994)
HASH(0x1b05234)
HASH(0x1b056a8)
HASH(0x1b05b1c)
HASH(0x1b05f90)
HASH(0x1b0b5a0)
HASH(0x1b0ba14)
HASH(0x1b0be88)
HASH(0x1b0c2d8)

Merci de votre aide

cdt

[Jim_Nastiq]

euh tu peux etre plus claire sur ton probleme ? j'avoue ne pas avoir compris le probleme

[Gad29]

J'ais eu le même probléme que ton 2eme affichage.
J'utilisais le module nmap de perl sous linux pour scanner des machines et récupérer diverses informations.
Pour les afficher j'ais dût utiliser un méthode de ce modul qui convertit le resultat en xml que ensuit j'envoyé dans un fichier pour travailler dessus.
Donc peut être que le resultat de "GetProcInfo ()" N'est pas directement affichable ? ?

[Jedai]

mais le probleme d'affichage ne fonctionne pas

Code :

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

1
2
3
4
 my @info = $pi->GetProcInfo ();   # Get the max
 foreach my $nn ( @info ) {
                print $nn . "\n";
 }

et sa resultat

Code :

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

HASH(0x1accb10)

Ce résultat montre que tu as tenté d'afficher une référence de hash. L'information que tu veux afficher se trouve probablement dans ce hash, par exemple si tu veux la liste des noms de processus :

Code :

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

1
2
3
4
 my @info = $pi->GetProcInfo ();   # Get the max
 foreach my $nn ( @info ) {
                print $nn->{Name} . "\n";
 }

Par ailleurs, si tu veux carrément visualiser le contenu de tes hashs, tu peux utiliser le module Data::Dumper qui fait partie du CORE (distribué en standard avec Perl).

Code :

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

1
2
3
4
5
use Data::Dumper;
 my @info = $pi->GetProcInfo ();   # Get the max
 foreach my $nn ( @info ) {
                print Dumper($nn) . "\n";
 }

--
Jedaï

[faddou]

Merci bcp