SNMP

Development Platform:

C/C++

memory.pl：Code Content

							#!/usr/bin/perl
# This small utility is used to collect the available memory and
# used memory. For free memory, it sums the free, cached and buffers.
# You must enable the "gauge" feature to have a proper graph
# as those numbers do not grow
#
# Colin Tinker
# g1gsw@titanic.demon.co.uk
# setup local vars
my($machine);
# Enter default macine name here
$machine = "g1gsw.ampr.org";
# This allows command args to override defaults listed above
if  (scalar(@ARGV) > 1 ) 
    {
    print("USAGE: memory.pl {machine}n");
    exit(-1);
    }     
    if  ($ARGV[0] ne '' && $ARGV[0] ne '#')
	{
        $machine = $ARGV[0];
        }
# Calculate free memory
    $getfree = `cat /proc/meminfo | grep Mem:`;
    $getfree =~ /^Mem:s+(d+)s+(d+)s+(d+)s+(d+)s+(d+)s+(d+)/;
# Each (D+) = $1 or $2 or $3 etc
    $outfree = $3;
    $outbuffers = $5;
    $outcached = $6;
# Total free memory
    $gettotal = $outfree+$outcached+$outbuffers;
    print $gettotal."n";
# Get used memory free
    $getused = `cat /proc/meminfo | grep Swap:`;
    $outused = $1-$gettotal;
    print $outused."n";
# Get uptime
    $getuptime = `/usr/bin/uptime`;
# Parse though getuptime and get data
    $getuptime =~ /^s+(d{1,2}:d{2}..)s+ups+(d+)s+(w+),/;
#Print getuptime data for mrtg
    print $2." ".$3."n";
   
# Print machine name for mrtg
    print $machine."n";

						