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

SNMP编程

开发平台:

C/C++

  1. #!/store/bin/perl
  2. # simple mqueue done with find2perl
  3. $hostname = "apollo";
  4. require "find.pl";
  5. # Traverse desired filesystems
  6. $counter = 0;
  7. &find('/var/spool/mqueue/');
  8. sub wanted {
  9.     /^qf.*$/ &&
  10. $counter++;
  11. }
  12. chomp $counter;
  13. print "0n$countern1n$hostnamen";