> XMM is heavily modified XMEM utility that shows graphically size of
> different Linux page lists: active, inactive_dirty, inactive_clean,
> code, free and swap usage. It is better suited for the monitoring of
> Linux 2.4 MM implementation than original (XMEM) utility.
>
> Find it here: <URL:http://linux.inet.hr/>
interesting. I prefer to collect data separately from viewing it,
and use the following simple perl script to do so; obviously,
it generates a bunch of separate files, one for each metric,
suitable for traditional filtering, gnuplot, etc.
#!/bin/perl
use IO::Handle;
require 'sys/syscall.ph';
sub gettimeofday {
$timeval = pack("LL", ());
syscall( &SYS_gettimeofday, $timeval, 0) != -1
or die "gettimeofday: $!";
($sec,$usec) = unpack("LL", $timeval);
return $sec + 1e-6 * $usec;
}
open(S,"</proc/stat") || die("failed to open /proc/stat");
open(M,"</proc/meminfo") || die("failed to open /proc/meminfo");
open(B,"</proc/slabinfo") || die("failed to open /proc/slabinfo");
open(PI,">pi.st"); PI->autoflush(1);
open(PO,">po.st"); PO->autoflush(1);
open(SI,">si.st"); SI->autoflush(1);
open(SO,">so.st"); SO->autoflush(1);
open(CX,">ctx.st"); CX->autoflush(1);
open(MF,">free.st"); MF->autoflush(1);
open(BF,">buf.st"); BF->autoflush(1);
open(AC,">act.st"); AC->autoflush(1);
open(ID,">id.st"); ID->autoflush(1);
open(IC,">ic.st"); IC->autoflush(1);
open(IT,">it.st"); IT->autoflush(1);
open(SW,">swap.st"); SW->autoflush(1);
open(BH,">bh.st"); BH->autoflush(1);
open(IN,">inode.st"); IN->autoflush(1);
open(DE,">dentry.st"); DE->autoflush(1);
$c = 0;
$first = gettimeofday();
while (1) {
sleep(1);
$now = gettimeofday() - $first;
seek(S,0,SEEK_SET);
while (<S>) {
if (/^page\s+(\d+)\s+(\d+)$/) {
if ($c) { print PI "$now ",4*($1 - $pi),"\n"; }
if ($c) { print PO "$now ",4*($2 - $po),"\n"; }
$pi = $1;
$po = $2;
next;
}
if (/^swap\s+(\d+)\s+(\d+)$/) {
if ($c) { print SI "$now ",4*($1 - $si),"\n"; }
if ($c) { print SO "$now ",4*($2 - $so),"\n"; }
$si = $1;
$so = $2;
next;
}
if (/^ctxt\s+(\d+)$/) {
if ($c) { print CX "$now ",$1 - $cx,"\n"; }
$cx = $1;
next;
}
}
seek(M,0,SEEK_SET);
while (<M>) {
if (/^MemFree:\s+(\d+) kB$/) { print MF "$now ",$1,"\n"; next; }
if (/^Buffers:\s+(\d+) kB$/) { print BF "$now ",$1,"\n"; next; }
if (/^Active:\s+(\d+) kB$/) { print AC "$now ",$1,"\n"; next; }
if (/^Inact_dirty:\s+(\d+) kB$/) { print ID "$now ",$1,"\n"; next; }
if (/^Inact_clean:\s+(\d+) kB$/) { print IC "$now ",$1,"\n"; next; }
if (/^Inact_target:\s+(\d+) kB$/) { print IT "$now ",$1,"\n"; next; }
if (/^Inact_target:\s+(\d+) kB$/) { print IT "$now ",$1,"\n"; next; }
if (/^Swap:\s+\d+\s+(\d+)/) { print SW "$now ",$1,"\n"; next; }
}
seek(B,0,SEEK_SET);
while (<B>) {
if (/^buffer_head\s+(\d+)\s+(\d+)\s+(\d+)/) { print BH "$now
",$1*$3/1024,"\n"; next; }
if (/^inode_cache\s+(\d+)\s+(\d+)\s+(\d+)/) { print IN "$now
",$1*$3/1024,"\n"; next; }
if (/^dentry_cache\s+(\d+)\s+(\d+)\s+(\d+)/) {print DE "$now
",$1*$3/1024,"\n"; next; }
}
$c++;
}
-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to [EMAIL PROTECTED]
More majordomo info at http://vger.kernel.org/majordomo-info.html
Please read the FAQ at http://www.tux.org/lkml/
