mailstats-alternate
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
源码类别:

SNMP编程

开发平台:

C/C++

  1. # use this method if you think it is better...
  2. # I did this one after I learnt a bit more perl!
  3. ##
  4. # munge the output data
  5. #
  6. while (<SOCK>) {
  7.    $line = $_;
  8.    ($a, $curfrm, $b, $curto, $c, $d) = split(' ',$line);
  9. }
  10. if ($a = "T") {
  11. # do some sums
  12. $msgsfrm = $curfrm - $oldfrm;
  13. $msgsto = $curto - $oldto;
  14. chomp $msgsfrm;
  15. chomp $msgsto;    
  16. # open the old file for overwrite
  17. open (OLD,">/tmp/mailstat.old") or die "can't open file!n";
  18. # print the data for mrtg
  19.   print "$msgsfrmn$msgston1n$remoten";
  20. # print the data to the old file
  21. print OLD "$curfrm $curton";
  22.     } #endif
  23. close (SOCK) or die "close: $!";
  24. exit;