SNMP编程

开发平台：

C/C++

ixdisk.pl：源码内容

							#!/usr/bin/perl
#
# Miroslaw M. Maczka: Miroslaw_Maczka@hotmail.com, mmm@bze.com.pl
# Date 2000-1-6
#
open(FI,"/usr/informix/bin/tbstat -p |") or die "";
while(<FI>){
#if(/RSAM Version 5.04.UC3   -- On-Line -- Up 1 days 21:56:47 -- 10960 Kbytes/){
if(/.+Versions+(.+)   --s+(.+)s+-- Ups+(.+)s+--.*/){
#print "[$1|$2|$3]n";
$db="$2 $1";
$uptime=$3;
}
if(/dskreads pagreads bufreads %cached dskwrits pagwrits bufwrits %cached/){
$_=<FI>;
($dskreads,$pagreads,$bufreads,$cached1,$dskwrits,$pagwrits,$bufwrits,$cached2)=split();
#print "[$dskreads,$pagreads,$bufreads,$cached1,$dskwrits,$pagwrits,$bufwrits,$cached2]n";
#
#$uname = `/bin/uname -n`;
print "$dskreadsn$dskwritsn$uptimen$db";
#
}#if
}#while
close(FI);
#-=EOF=-

						