Re: (Vortacist) Re: monitor.pl

[xphase_work]

OS => $ , is supposed to be $^O, in other words,
$<ctrl>O. I don't know why It doesn't show up,
there, but if you click the d/l code it should work.
What I did was right click d/l code, save it to disk,
then strip out the ^M's.

[Vortacist]

Well, I made sure to right-click and save the code that way (last time I had clicked the d/l link and pasted the code into emacs, which generally works) and despite removing the ^M's, no ^O appeared. So I added it in myself, but then when I tried running monitor, I had this problem:

Illegal division by zero at monitor.pl line 138.

That line is in drawvals, and it's:

$swapUsage = $values{useSwap}/$values{totSwap})*100;

Not quite sure what's going on there. Is a value for totSwap not being added to %values, perhaps?
FYI, I am running this script using Perl 5.6.1 on Debian/GNU Linux.

[xphase_work]

The only thing that I can think of is that the top command
on your system is not outputting the same info that mine is,
mine gives:

load averages:  0.50,  0.47,  0.41    13:03:12
83 processes:  81 sleeping, 1 running, 1 on cpu

Memory: 256M real, 128M free, 64M swap in use, 192M swap free


  PID USERNAME THR PRI NICE  SIZE   RES STATE   TIME    CPU COMMAND
14600 baw        1  36    0   32M   21M run     7:30  8.06% netscape

If the Memory: line is different in your output, then the regex
that pulls the memory info won't place a value into totSwap. This
is because i'm using array subscripting to pull the values out of
the @memInfo array. Try changing $memInfo[?] to where the correct
swap values would be.

--xPhase