client/meter/process

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 %psState = (
   6         'D' => "io-wait",
   7         'R' => "running",
   8         'S' => "sleeping",
   9         'T' => "stopped",
  10         'W' => "paging",
  11         'X' => "dead",
  12         'x' => "dead",
  13         'Z' => "zombie",
  14         'I' => "idle",
  15         't' => "tracing-stop",
  16         'K' => "wakekill",
  17         'P' => "parked",
  18 );
  19
  20 %states = map {$_=>0} values %psState;
  21 %Processes = ('state' => \%states);
  22
  23 opendir my $dir, '/proc';
  24
  25 while(my $pid = readdir $dir)
  26 {
  27         if($pid =~ /^\d+$/)
  28         {
  29                 $Processes{'count'}++;
  30                 my %procprop = ();
  31
  32                 open my $fh, '<', "/proc/$pid/status";
  33                 while(<$fh>)
  34                 {
  35                         if(/^Threads:\s*(\d+)/)
  36                         {
  37                                 $Processes{'threads'} += $1;
  38                         }
  39                         elsif(/^(Tgid|VmLck):\s*(\d+)/)
  40                         {
  41                                 $procprop{$1} = $2;
  42                         }
  43                 }
  44                 close $fh;
  45
  46                 open my $fh, '<', "/proc/$pid/stat";
  47                 my $stat = <$fh>;
  48                 close $fh;
  49
  50                 if(my ($state, $pgrp, $session, $tpgid, $flags, $priority, $nice, $nlwp) =
  51                   $stat =~ /\) (.) -?\d+ (-?\d+) (-?\d+) -?\d+ (-?\d+) (-?\d+) (?:-?\d+ ){4}(?:-?\d+ ){4}(-?\d+) (-?\d+) (-?\d+)[ \d-]*$/)
  52                 {
  53                         $Processes{'state'}{$psState{uc$state} || $state}++;
  54                         $Processes{'hi_prio'}++ if $nice < 0;
  55                         $Processes{'lo_prio'}++ if $nice > 0;
  56                         $Processes{'locked-pages'}++ if $procprop{'VmLck'} > 0;
  57                         $Processes{'session-leader'}++ if $session == $procprop{'Tgid'};
  58                         $Processes{'multithreaded'}++ if $nlwp > 1;
  59                         $Processes{'foreground'}++ if $pgrp == $tpgid;
  60                 }
  61         }
  62 }
  63
  64 svlhk_dump(\%Processes);