pb d'affichage script

Bonjour,

Code:

---

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:

---

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:

---

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:

---

1 2 3 4

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

---

et sa resultat

Code:

---

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

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

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 ? ?

Citation:

---

Envoyé par faddou

mais le probleme d'affichage ne fonctionne pas

Code:

---

1 2 3 4

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

---

et sa resultat

Code:

---

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:

---

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:

---

1 2 3 4 5

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

---

--
Jedaï

Merci bcp :king: