用Perl写一套系统监控程序

1 目 录 1 概述...........................................................................................................................................1 2 监控Server................................................................................................................................1 3 监控Client...............................................................................................................................10 4 运行方法及配置文件.............................................................................................................20 1 概述 本监控程序用来监控RedHat Linux主机的系统状况，包括CPU 负载、内存使用、网络状况、服务端口、磁盘空间等。本程序基于 C/S 结构，全部用Perl 实现。基本原理是，Client运行在各个需要监控的主机上，并起一个 Socket 端口。Server 定期轮询各个 Client，根据配置文件里的选项发送扫描命令，取得客户端的状态，若有异常则发送邮件报警。 这个程序属于偶的业余作品，只花了 1 天半的时间写成。Perl 的优点就是快速开发，且自身有强大的类库，可实现很复杂的功能。这个程序除了 Net::SMTP 模块外，没有使用任何外部类库。 代码仅做参考，可以修改它们作为己用。程序运行稳定，目前已监控了偶们广州公司的上百台 Linux服务器。但代码至少有如下不足： 1． 没写任何安全控制的代码，包括进程ID 切换，chroot，Socket 会话加密及认证等。所以客户端默认只在内网 IP 上监听，且不要以 root 运行。 2． 客户端检查系统状态主要使用了外部系统调用，其实大部分系统状态，都可从 POSIX函数或 Linux自身的状态表里获取（如/proc 下的文件）。偶不想花时间去研究那些，直接 system call 了。 2 监控Server #!/usr/bin/perl use strict; use IO::Socket; use POSIX qw(:signal_h WNOHANG setsid); use Net::SMTP; use Fcntl qw(:DEFAULT :flock); # 电子邮件地址，用来接受报警 my @emails = ( sa@sample-inc.com, 2dba@sample-inc.com, # 其他email 地址 ); # 程序运行的主目录，这里是写死的，需要修改成自己的目录，或写成配置文件 my $rundir = '/home/afoo/monsvr'; # 程序运行的PID 文件 my $pid_file = $rundir . "/monsvr.pid"; # ...