SNMP编程

开发平台：

Unix_Linux

mib2c.extract.pl：源码内容

							#!/usr/bin/perl
# read comments from mib2c and insert them in mib2c.conf.5
my $mib2csrc = shift;
while (<>) {
    if (/COMMANDSHERE/) {
	open(I,$mib2csrc);
	while (<I>) {
	    last if (/^# which include:/);
	}
	while (<I>) {
	    last if (!/^#/);
	    s/^#s+//;
	    s/^(@.*@)$/.IP "$1"/;
	    print;
	}
	close(I);
    } elsif (/VAREXPANSIONSHERE/) {
	open(I,$mib2csrc);
	while (<I>) {
	    last if (/^# Mib components,/);
	}
	while (<I>) {
	    last if (!/^#/);
	    next if (/^#s*$/);
	    s/^#s+//;
	    s/^(S+)s+--s+(.*)/.IP "$1"n$2/;
	    print;
	}
	close(I);
    } else {
	print;
    }
}

						