SNMP编程

开发平台：

Unix_Linux

make-perl-makefiles：源码内容

							#!/usr/bin/perl
open(I, "Makefile.subs.pl");
@stuff = <I>;
foreach my $i (@ARGV) {
    print "updating $in";
    open(I, $i);
    open(O,">$i.new");
    while(<I>) {
	# start replacement here
	last if /common subroutines -- DO NOT EDIT/;
	print O;
    }
    print O "# common subroutines -- DO NOT EDIT.n";
    print O "# They are imported from the Makefile.subs.pl filen";
    print O @stuff;
    rename($i,"$i.bak");
    rename("$i.new", "$i");
    close(I);
    close(O);
}

						