SNMP编程

开发平台：

C/C++

linux_stats.pl：源码内容

							#!/usr/bin/perl -Tw
####################################################################
#  linux_stats.pl     1.0            Mike Machado                  #
#                                    mike@innercite.com            #
#                                    2000-07-19                    #
#                                                                  #
#  Script to read traffic stats off linux 2.2 and greater systems  #
#                                                                  #
####################################################################
use strict;
#### Options ####
my $uptimeprog = '/usr/bin/uptime';	# Set to program to give system uptime
my $hostnameprog = '/bin/hostname';	# Set to program to give system hostname
my $defaultinterface = 'eth0';		# Set to default interface
my $defaultstatfile = '/proc/net/dev';	# Set to traffic stats file location
##### Nothing below here should have to be changed #####
if (@ARGV && $ARGV[0] eq '-h') {
	print "Usage: linux_stats.pl [interface] [stats file]n";
	print "tIf left blank 'eth0' and '/proc/net/dev' are usedn";
	print "tInterface of 'ALL' will total all interface traffic, excluding lon";
	exit;
}
my $interface = shift || $defaultinterface;
my $statfile = shift || $defaultstatfile;
# Clear path and get uptime
delete $ENV{PATH};
delete $ENV{BASH_ENV};
my $uptime = `$uptimeprog`;
chomp($uptime);
my $hostname = `$hostnameprog`;
chomp($hostname);
my ($in, $out, $found);
open(STATS, $statfile) || die "Cannot open $statfile: $!n";
while (<STATS>) {
	my $line = $_;
	chomp($line);
	if (uc($interface) eq 'ALL') {
		if ($line =~ /^s+(.*):s*(d+)s+d+s+d+s+d+s+d+s+d+s+d+s+d+s+(d+)s+d+s+d+s+d+s+d+s+d+s+d+s+d+$/) {
			next if $1 eq 'lo';
			$in += $2;
			$out += $3;
			$found++;
		}
	} else {
		if ($line =~ /^s+$interface:s*(d+)s+d+s+d+s+d+s+d+s+d+s+d+s+d+s+(d+)s+d+s+d+s+d+s+d+s+d+s+d+s+d+$/) {
			$in = $1;
			$out = $2;
			$found = 1;
			last;
		}
	}
}
close(STATS);
if (!$found) {
	print "0n0n$uptimen$hostname: Unknown Interface: $interfacen";
} else {
	print "$inn$outn$uptimen$hostname: Interface: $interface";
	if (uc($interface) eq 'ALL') {
		print " (counted $found interface";
		if ($found > 1) {
			print "s";
		}
		print ")";
	}
	print "n";
}

						