Processus Système en Perl

Version imprimable

30/01/2011, 11h10
shazzy

Processus Système en Perl

Bonjour

je veux récupérer la liste des processus actif sur le système et les enregistrer sur un fichier texte

est-ce possible ?

les fonctions a utiliser si c'est possible

Merci d'avance
30/01/2011, 13h08
djibril

Tu travailles sous quel OS ?
Sous Win32 : Win32::Process::List
Sous Linux/Unix : Proc::ProcessTable
30/01/2011, 13h13
shazzy

Merci beaucoup pour la réponse :D

Je travail sous centOS 5.5 mais je voudrais faire un script qui marche sur les 2 plateforme
30/01/2011, 13h38
djibril

Dans ce cas, dans ton programme, tu testes si tu es sous Windows ou Linux et en fonction du cas, tu fais un require du module à utiliser.

Bonsoir

je voudrais afficher les processus dans la liste box mais j'ai des erreurs

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
 
 
use Proc::ProcessTable;
 
 
 
 $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
 
 $t = new Proc::ProcessTable;
 
 
$lb->insert('end' , $FORMAT, "PID", "TTY", "STAT", "START", "COMMAND" );
 
 foreach $p ( @{$t->table} ){
 
   printf($FORMAT, 
 
          $p->pid, 
 
          $p->ttydev, 
 
          $p->state, 
 
          scalar(localtime($p->start)), 
 
          $p->cmndline);
 
 }

les erreurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Global symbol "$FORMAT" requires explicit package name at projet.pl line 86.
Global symbol "$t" requires explicit package name at projet.pl line 87.
Global symbol "$FORMAT" requires explicit package name at projet.pl line 89.
Global symbol "$p" requires explicit package name at projet.pl line 90.
Global symbol "$t" requires explicit package name at projet.pl line 90.
Global symbol "$FORMAT" requires explicit package name at projet.pl line 91.
Global symbol "$p" requires explicit package name at projet.pl line 92.
Global symbol "$p" requires explicit package name at projet.pl line 93.
Global symbol "$p" requires explicit package name at projet.pl line 94.
Global symbol "$p" requires explicit package name at projet.pl line 95.
Global symbol "$p" requires explicit package name at projet.pl line 96.
Global symbol "$FORMAT" requires explicit package name at projet.pl line 99.

C'est tout à fait normal, tu ne déclare pas proprement tes variables avec my !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use Proc::ProcessTable;
 
my $FORMAT = "%-6s %-10s %-8s %-24s %s\n";
my $t = new Proc::ProcessTable;
 
$lb->insert('end' , $FORMAT, "PID", "TTY", "STAT", "START", "COMMAND" ); 
foreach my $p ( @{$t->table} ) {
  printf( $FORMAT, 
          $p->pid,  
          $p->ttydev,  
          $p->state,  
          scalar(localtime($p->start)),  
          $p->cmndline
  );
}