http://d.tnh.jp/20040629.html#p03
メモリー使用量がみにくかったので、
ちゃんとしてみる。
#!/usr/bin/perl
$IP=$ARGV[0];
$COMMUNITY=$ARGV[1];
$sysDescr=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.2.1.1.1`))[4];
$memTotalSwap=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.4.1.2021.4.3.0`))[3];
$memAvailSwap=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.4.1.2021.4.4.0`))[3];
$memTotalReal=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.4.1.2021.4.5.0`))[3];
$memAvailReal=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.4.1.2021.4.6.0`))[3];
$memBuffer=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.4.1.2021.4.14.0`))[3];
$memCached=(split(/ /,`/usr/bin/snmpwalk -v 1 $IP -c $COMMUNITY .1.3.6.1.4.1.2021.4.15.0`))[3];
$memUsedSwap=$memTotalSwap-$memAvailSwap;
$memUsedReal=$memTotalReal-$memAvailReal-$memBuffer-$memCached;
print "$memUsedReal\n";
print "$memUsedSwap\n";
print "\n";
print "$sysDescr\n";
Options[localhost_mem]: gauge,absolute,growright
YLegend[localhost_mem]: Memory Used(Bytes)
ShortLegend[localhost_mem]: (Bytes)
Legend1[localhost_mem]: Real Used Memory
Legend2[localhost_mem]: Swap Used Memory
LegendI[localhost_mem]: Real
LegendO[localhost_mem]: Swap
Unscaled[localhost_mem]: dwmy
kMG[localhost_mem]: k,M,G,T,P
Target[localhost_mem]: `/usr/local/sbin/memory.pl localhost public`
MaxBytes1[localhost_mem]: 1036212
MaxBytes2[localhost_mem]: 4000104
Title[localhost_mem]: Memory Used for localhost
PageTop[localhost_mem]:
