SNMP编程

开发平台：

C/C++

quake-mrtg.pl：源码内容

							#!/usr/bin/perl5
#
#  quake-mrtg.pl
# 
#  counts the number of players currently on a given
#  quake2/quakeworld/unreal/etc server, using the 'qstat' 
#  program available from: ftp://ftp.activesw.com/pub/quake/
#
#  Usage:
#   Target[quakeserv]:  `quake-mrtg.pl quake.server.com 27910 Q2`
#   
#   ^^^ Gets usage from a Q2 server running on quake.server.com, 
#       port 27910.
#
#  - joey miller, inficad communications, llc.
#    <joeym@inficad.com>, 2/5/1999
#
my($qstat) = "./qstat";
$| = 1;
if ( scalar(@ARGV) < 3 ) {
    print STDERR "usage: $0 server.address port game-typenn";
    print STDERR "tgame-types: QS, QW, QWM, H2S, HWS, Q2, UNS, HLS, SNSn";
    print STDERR "tQW = quakeworld, Q2 = quake2, etc, etcn";
    exit -1;
}
my($serv) = $ARGV[0];
my($port) = $ARGV[1];
my($game) = $ARGV[2];
if ( ! open(QSTAT, "$qstat -raw : -default $game $serv:$port |") ) {
    print STDERR "Couldn't exec $qstatn";
    exit -2;
}
my($users);
while(<QSTAT>) {
    ($users) = (split(/:/))[6];
    last;
}
close(QSTAT);
print "$usersn";
print "$usersn";
print "0n";
print "$serv:$portn";
    
    

						