🚀 go-pugleaf

Czesc!
Z powodu tego, ze narzedzia top, ps i glance (na HP-UX) pokazuja rozne
(nie dajace porownac sie) dane wyjsciowe, postanowilem skorzystac z
modulu "Proc::ProcessTable". Wszystko fajnie, ale od paru dni glowie
sie nad zliczaniem tego, co ten modul prezentuje. Poszukuje
rozwiazania zliczania elementow w tablicy w stylu ponizszej klauzuli
SQL:
SELECT sum(rssize)
FROM procprocesstable
WHERE uid IN (101, 102);

Kod:
#!/usr/bin/perl

use Proc::ProcessTable;

$ref = new Proc::ProcessTable;

foreach $proc (@{$ref->table}) {
  if(@ARGV) {
    next unless grep {$_ == $proc->{pid}} @ARGV;
  }

  print "--------------------------------\n";
  foreach $field ($ref->fields){
    print $field, ":  ", $proc->{$field}, "\n";
  }
}

Powyzszy kod robi cos takiego (debug): http://goo.gl/y35jX
Co po duzym uproszczeniu prezentuje ponizsze, przykladowe (zmyslone)
dane:
--------------------------------
uid:  0
pid:  0
cpu:  0
start:  1284802722
flag:  515
state:  sleep
procnum:  1
pctcpu:  0.000000
rssize:  0
--------------------------------
uid:  101
pid:  0
cpu:  0
start:  1284802722
flag:  515
state:  sleep
procnum:  1
pctcpu:  0.000010
rssize:  3057
--------------------------------
uid:  102
pid:  0
cpu:  2
start:  1284802722
flag:  515
state:  sleep
procnum:  1
pctcpu:  0.000002
rssize:  2048
--------------------------------
uid:  101
pid:  0
cpu:  1
start:  1284802722
flag:  515
state:  sleep
procnum:  1
pctcpu:  0.000001
rssize:  1024
--------------------------------

Problem, ktory mam, to jak podliczyc np. RSSIZE dla kazdego
uzytkownika?? Dla jednego usera (uid) to bym wiedzial, ale jak dla
wielu??

Bylbym wdzieczny, gdyby ktos zapodal jakis pomysl, jak w ogole sie za
to zabrac, bo ja na razie nie mam pojecia... :-/

Pozdrawiam,
--
Scottie