使用Perl实现系统服务监控和报警

最新推荐文章于 2021-07-14 11:31:54 发布
最新推荐文章于 2021-07-14 11:31:54 发布
阅读量1.1k 收藏
点赞数
文章标签： perl cmd 服务器 apache server mysql

作者：heiyeluren
博客：http://blog.csdn.net/heiyeshuwu
时间：2008-5-22


一般的Web站点来说，都包括很多服务和应用，我们没法实时知道系统运行是否正常，特别是晚上的时候，如果服务器宕机或应用挂掉了，都会影响业务和用户访问，这时候一套对系统监控的错设就必须得当。目前有很多软件应的监控通知和报警服务，有收费的也有免费的，大家都可以选择。

我们就尝试自己来实现一个服务监控和报警通知的程序，这样能够使用很小的代价，同样让我们的服务高可用性和高可靠性。


【监控原理】


远程服务

对于远程机器来说，我们可以有一台监控服务器，或者随便找一台比较不容宕机的服务器来作为监控服务器，那么就能够监控其他的服务机上的服务了，远程监控是比较大家需要的方式了。一般远程监控就监控服务器和端口是否开放，比如说，我们的 Web 服务 Apache 一般都会开放 80 端口，那么我们就可以通过访问这台服务器的 80 端口来确定 Apache 是否在正常工作，如果无法连接上，那么说明该服务就停止了。

 

本地服务
对于本机来说，监控进程和日志文件都是可行的，一般来说，长期频繁工作的服务，比如 Apache 都会在每次访问后把访问信息记录到 access 访问日志文件里，如果这个文件长时间没有更新，就可以怀疑该服务已经停止了（当然了，不排除，这段时间内都没有人访问的情况）。另外对于进程来说，本机是很容易可以查看到进程情况的，对于 MySQL 等服务器来说，守护进程都是长期开放的，如果发现当前系统中没有了 MySQL 守护进程，那么也可以确认 MySQL 服务已经停止了。

 

 报警通知
 服务停止了，自然需要通知系统维护人员，那么一般就是通过邮件或者短信的方式，短信是最好的了，但是频繁短信同样让维护人员很郁闷，这个叫做短信炸弹（Message Bomb），所以邮件也许是个简单实在的方式，本地再配置上 Outlook/Foxmail 定期接收和通知方式，也比较快捷，但是晚上回家后，一般都无法收到邮件了，所以合理的方式是白天邮件通知，晚上和周末短信通知 的报警方式更合理。

 

【代码实现】

具体代码实现可以使用各种代码了，C/C++、Ruby、Python、PHP ，只要能够访问文件、Socket ，能够定期执行的语言都可以，我们下面的代码采用 Perl 来构建，因为 Perl 是很好的系统管理脚本语言，任何 Unix/Linux 都缺省安装了 Perl 引擎，能够很方便的在任何机器上面运行，同时 Perl 的灵活性强，而且有强大的 CPAN 包库，所以编写代码很方便，在系统管理中也是值得推荐大家使用的，当然了，很多系统管理工作使用 shell 脚本也许更方便。

 

下面的代码实现对远程监控、本地日志文件监控、本地进程监控都进行了实现，但是只使用了远程端口监控的方式，因为这样就能够监控多台机器和服务了，如果只是单台机器或者只是想监控本地进程，可以很简单的修改主函数来实现。同时通知方式主要是采用邮件通知的方式，并且函数实现了SMTP协议进行邮件发送（因为我发现Perl内置的 Net::SMTP 在进行型验证的时候，并不是很靠谱），当然了，在报警通知方面，完全可以改写成发送短信或者按照时间来分别调用短信和邮件的方式。

 

代码中主要监控了包括  Apache、MySQL、Memcache、Search（假如你有的话）等服务，可以在这个基础上进行增删不同的服务器监控，只需要增加一个常量配置和修改 main 函数代码。

 

 

说明：以下Perl代码在 RHEL 4 + Perl v5.8.6 环境下测试通过

 

# !/usr/bin/perl
use  IO :: Socket ;
use  IO :: File;
use  MIME :: Base64;

# #############################
# Constant define (configure)
##############################
# mail config
use  constant MAIL_ADDR           =>  ( ' to ' => ' webmaster@example.com ' ,   ' from ' => ' webmaster@example.com ' );
use  constant SMTP_INFO           =>  ( ' host ' => ' smtp.example.com ' ,   ' user ' => ' webmaster ' ,   ' password ' => ' pass ' ,  
                                     ' debug ' => 1 ,   ' bufsize ' => 1024 );
#  common config
use  constant MD5SUM_FILE         =>   ' /tmp/__monitor_md5sum_hash ' ;
use  constant APACHE_LOG_PATH     =>   ' /usr/local/apache2/logs/access ' ;
#  apache
use  constant APACHE_PORT         =>   80 ;
use  constant APACHE_SERVERS      =>  ( ' web1.example.com ' ,   ' web2.example.com ' );
#  mysql
use  constant MYSQL_PORT          =>   3306 ;
use  constant MYSQL_SERVERS       =>  ( ' db1.example.com ' ,   ' db2.example.com ' );
#  memcache
use  constant MEMCACHE_PORT       =>   11211 ;
use  constant MEMCACHE_SERVERS    =>  ( ' cache1.example.com ' ,   ' cache2.example.com ' );
#  search
use  constant SEARCH_PORT         =>   8000 ;
use  constant SEARCH_SERVERS      =>  ( ' search1.example.com ' );


# #############################
# Server port is alive check
##############################
sub  check_server_alive {
     my ( $server ,   $port )  =   @_ ;

     $sock   =  IO :: Socket :: INET -> new(PeerAddr => $server ,  PeerPort => $port ,  Proto => ' tcp ' ,  Timeout => 3 );
     if  ( ! $sock ){
         return   0 ;
    }
     $sock -> close ();
     return   1 ;
}

# #############################
# Check process is exist
##############################
sub  check_process_exist {
     my   $proc_name   =   shift ;
     $line   =  ` / bin / ps auxw  |   / bin / grep   $proc_name   |   / bin / grep   - v  grep   |   / usr / bin / wc  - l`;
     $line   =~  s /^ s +| s + $ // g;
     if  ( $line   ==   0 ){
         return   0 ;
    }
     return   1 ;
}

# #############################
# Check file md5 fingerprint
##############################
sub  check_file_md5sum {
     my   $io ,   $line ;
     $filename   =   shift ;
     @arr   =   split ( / s /,  ` / usr / bin / md5sum  $filename `);
     $filehash   =   shift ( @arr );
     $io   =  IO :: File -> new();
     $io -> open (MD5SUM_FILE ,  O_RDWR);
     if  ( ! ( $line   =   $io -> getLine())){
         $io -> syswrite ( $filehash );
         $io -> close ;
         return  true;
    }
     if  ( $line   !=   $filehash ){
         $io -> truncate ( 0 );
         $io -> syswrite ( $filehash );
         $io -> close ;
         return  true;
    }
     return  true;
}

# #############################
# SMTP execute command
##############################
sub  smtp_cmd {
     my  ( $sock ,   $cmd ,   $blocking )  =   @_ ;
     my   %smtpinfo   =  SMTP_INFO;
     my   $buf ,   $bufsize   =   $smtpinfo { ' bufsize ' } ,   $debug = $smtpinfo { ' debug ' };

     $sock -> syswrite ( $cmd );
     if  ( $debug   ==   1 ){
         print   " >>> $cmd  " ;
    }
     if  ( $blocking   ==   1 ){
         $sock -> sysread ( $buf ,   $bufsize );
         if  ( $debug ){
             print   " <<< $buf " ;
        }
    }
}

# #############################
# Send notice mail
##############################
sub  send_mail {
     my  ( $subject ,   $content )  =   @_ ;
     my   $sock ;
     my   %mailaddr   =  MAIL_ADDR;
     my   %smtpinfo   =  SMTP_INFO;
     my   $debug   =   $smtpinfo { ' debug ' };

     #  Count date time
    ( $sec ,   $min ,   $hour ,   $day ,   $mon ,   $year ,   $wday ,   $yday ,   $isdst )  =   localtime ( time ());
     $datetime   =   sprintf ( " %s-%s-%s %s:%s:%s " ,   " 20 " . substr ( $year , 1 , 2 ) ,   length ( $mon ) == 1 ? " 0$mon " : $mon ,   length ( $day ) == 1 ? " 0$day " : $day ,   length ( $hour ) == 1 ? " 0$hour " : $hour ,   length ( $min ) == 1 ? " 0$min " : $min ,   length ( $sec ) == 1 ? " 0$sec " : $sec );
     $subject   .=   " [$datetime] " ;

     #  Connect to SMTP server
     $sock   =  IO :: Socket :: INET -> new(PeerAddr => $smtpinfo { ' host ' } ,  PeerPort => 25 ,  Proto => ' tcp ' ,  Timeout => 10 );
     $sock -> blocking( 1 );

     #  Send smtp command
     if  ( $debug   ==   1 ){
         print   " <<<  " .   $sock -> sysread ( $buf ,   $smtpinfo { ' bufsize ' });
    }
    smtp_cmd( $sock ,   " HELO locahost  " ,   1 );
    smtp_cmd( $sock ,   " AUTH LOGIN  " ,   1 );
    smtp_cmd( $sock ,  encode_base64( $smtpinfo { ' user ' }) ,   1 );
    smtp_cmd( $sock ,  encode_base64( $smtpinfo { ' password ' }) ,   1 );
    smtp_cmd( $sock ,   " MAIL FROM: < " .   $mailaddr { ' from ' }  . " >  " ,   1 );
    smtp_cmd( $sock ,   " RCPT TO: < " .   $mailaddr { ' to ' }  . " >  " ,   1 );
    smtp_cmd( $sock ,   " DATA  " ,   1 );
    smtp_cmd( $sock ,   " From:  " .   $smtpinfo { ' from ' }  . "   " ,   0 );
    smtp_cmd( $sock ,   " To:  " .   $smtpinfo { ' to ' }  . "   " ,   0 );
    smtp_cmd( $sock ,   " Subject: $subject  " ,   0 );
    smtp_cmd( $sock ,   " $content  " ,   0 );
    smtp_cmd( $sock ,   "  .  " ,   1 );
    smtp_cmd( $sock ,   " QUIT  " ,   0 );
     $sock -> close ();

     return   1 ;
}

# #############################
# Check server alive main
##############################
sub  monitor_main {
     #  check apache
     foreach   $item  (APACHE_SERVERS) {
         if  ( ! check_server_alive( $item ,  APACHE_PORT)) {
            send_mail( " $item apache server is down " ,   " $item apache server is down. please timely restoration " );
        }
    }
     #  check mysql
     foreach   $item  (MYSQL_SERVERS) {
         if  ( ! check_server_alive( $item ,  MYSQL_PORT)) {
            send_mail( " $item mysql server is down " ,   " $item mysql server is down. please timely restoration " );
        }
    }
     #  check memcache
     foreach   $item  (MEMCACHE_SERVERS) {
         if  ( ! check_server_alive( $item ,  MEMCACHE_PORT)) {
            send_mail( " $item memcache server is down " ,   " $item memcache server is down. please timely restoration " );
        }
    }
     #  check search
     foreach   $item  (SEARCH_SERVERS) {
         if  ( ! check_server_alive( $item ,  SEARCH_PORT)) {
            send_mail( " $item search server is down " ,   " $item search server is down. please timely restoration " );
        }
    }
}


# #############################
# Main running
##############################

monitor_main();

re_think
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
谈谈业务系统的监控报警
siyuanwai的博客
01-02 2029
几年前，我半途接手负责了一个开发团队，当时这个团队做的业务系统属于金融行业。系统的开发、测试都快结束了，这个系统的功能还是挺复杂的，子系统三、四个，定时任务也不少，依赖的第三方系统也好几个。 和这个团队熟悉之后，我和大家说，我们需要对这个系统做监控报警（监控报警的名字叫法很多），监控报警是业务系统的金钟罩，对业务系统非常重要。当时有些人对监控报警没有概念，更感觉不到重要性，估计可能还有一些人...
[原创] 使用Perl实现系统服务监控和报警
heiyeluren的blog（黑夜路人的开源世界）
05-22 3964
使用Perl实现系统服务监控和报警作者：heiyeluren博客：http://blog.csdn.net/heiyeshuwu时间：2008-5-22一般的Web站点来说，都包括很多服务和应用，我们没法实时知道系统运行是否正常，特别是晚上的时候，如果服务器宕机或应用挂掉了，都会影响业务和用户访问，这时候一套对系统监控的错设就必须得当。目前有很多软件应的监控通知和报警服务，有收费的也有免费
服务监控报警
btoejcltkgq230821的博客
08-01 318
#!/bin/sh#auto service monitor#by zkg 2019-07-15 echo -e "\033[32m \033[1m"EMAIL=email.txtDATE=dateM_IPADDR=ifconfig eth0|grep "Bcast"|awk '{print $2}'|awk -F: '{print $2}'br/>MYEMAIL=allen.zhang@d...
利用perl监控文件状态
weixin_34143774的博客
12-06 161
作为运维来监控文件的状态可以扩展很多个方面，例如rsync增量备份，监控服务器是否被******等等。所以说监控文件的状态至关重要。根据这几天的工作的需求特别写了一个Perl脚本，有什么方面没有考虑到的希望大家多多指出。 需要安装的模块： File::Monitor File::Find::Rule 安装方法： win下（需要有perl环境，我这里装的是active...
perl monitor script积累
shuming的专栏
04-06 985
1. 监控中间件应用脚本 #!/bin/evn perl $port = $ARGV[0]; $group = $ARGV[1]; $ret = `/home/a/bin/pat -s kfc_${port}_${group} -c|cut -d"\t" -f 3-`; chomp($ret); printf("%s\t%s", time, $ret);(1) ARGV 与C语言里面的ar
用shell+sendmail实现服务器监控报警小脚本
09-15
该文章主要介绍了一个使用Shell脚本结合sendmail工具实现的简单服务器监控和报警系统。这个系统主要用于检测服务器的负载均衡、磁盘使用率以及特定服务的状态，并在超过预设阈值时通过电子邮件发送警告。 首先，...
RHEL 4 + Perl v5.8.6实现系统服务监控和报警
03-31
该标题明确指出了使用的技术栈为RHEL 4操作系统与Perl版本v5.8.6，主要功能是对系统服务进行监控并实现报警机制。 ### 描述解析：以下Perl代码在 RHEL 4 + Perl v5.8.6 环境下测试通过 这行描述表明了这段Perl脚本...
计算机-后端-基于PERL的CS架构服务器监控系统.pdf
06-17
在当前信息化社会中，互联网已经成为了人们日常生活中不可或缺的一...总的来说，基于PERL的CS架构服务器监控系统为大型网络环境提供了有效且高效的运维管理工具，降低了人工监控的压力，提升了整体系统的可靠性和效率。
使用Zabbix和smartmontools监控磁盘健康的模板和脚本-Perl-Python-下载
最新发布
01-09
Zabbix是一个广泛使用的开源监控系统，它能够实时监测网络和IT基础设施的状态，包括硬件健康状况。Smartmontools则是一个实用的工具集，用于检查硬盘的SMART（Self-Monitoring, Analysis, and Reporting Technology...
一个Perl写的Http服务器
02-23
这个程序的最终目的是完成一个完全用Perl编写的http服务器，其目的是为Perl利用Perl的灵活性快速开发Web项目并为Perl程序员提供一个高效的超越Apache/IIS的动态网页生成平台。这个程序目前还仅仅是在Net::Server模块中自带的demo的一个扩展，比较简单，运行后您可以通过9080端口进行访问。本程序目前已经可以支持CGI模块的使用，文件包中包括一个my_cgi.pm的扩展模块的demo.本程序在Windows2003+Cygwin+Perl5.8.2环境下调试通过，论上Linux/Unix环境下可以正常运行本程序的运行需要如下模块的支持：varsstrict;HTTP::Status;HTTP::Message;HTTP::Date;CGI;因为这个程序还是在开发的初期，所以仅供大家参考，出于安全考虑请不要将本程序应用于您的项目中。
MCMonitorPerl:监控我们服务器的仪表板
04-19
MCMonitorPerl 在我们的Minecraft和Source服务器网络的监视页面上工作，以便一眼即可看到该网络的总体运行状况。 最初，这是关于报告健康状况以及玩家加入计数和历史记录。 我将进行扩展以包括一些管理和管理功能，例如重新启动服务器。 谁知道，但是最终它可能会让我脱离今天用于服务器的管理界面。 这是Perl Catalyst版本，并且可能是我将继续开发的版本。
Linux实时监控日志文件的swatchdog
qq_40907977的博客
07-14 866
1. 前言 本教程主要讲解在Linux系统中如何使用swatchdog实时监控日志文件的变化。 swatchdog(Simple WATCH DOG)是一个简单的Perl脚本，用于监视类Unix系统(比如Linux)上的活动日志文件。它根据可以在配置文件中定义的正则表达式监控日志。您可以从命令行或后台运行它，使用daemon模式选项在后台运行。 请注意，该程序最初名为swatch(Simple Watcher翻译为简单的观察者)，但在这家老牌瑞士手表公司要求更改名称时，开发人员将其名称改为swatchdog
Perl 监控 web展示
zhaoyangjian724的专栏
05-06 424
#!/usr/bin/perl use POSIX; use Encode qw/encode decode/; use CGI; my $dir = '/usr/local/apache-tomcat-7.0.55_8083/webapps/ROOT'; my $file = 'MBANKAPP2-20150504141902logs.log'; $mon_file = "$dir/$fil
Perl Web service 服务器端
Aylazhang的专栏
04-10 5605
前提： 安装了apache /mod_perl/perl (我这里的版本分别为 2.0/2.0/5.8) 之后就要配置httpd.conf，分配一个单独的目录给web service。用于存perl 模块以及代码 PerlRequire /绝对路径（或者相对)/startup.pl  ## 参考http://www.fayland.org/journal/mod_perl_co
5.2 最小的Perl Web服务器
用不完的好奇心
10-20 1642
（供了解）下例代码显示了一个名为 type-o-serve 的小型 Perl 程序。这个程序是个很有用的诊断工具，可以用来测试与客户端和代理的交互情况。与所有 Web 服务器一样，type-o-serve 会等待 HTTP 连接。只要 type-o-serve 收到了请求报文，就会将报文打印在屏幕上，然后等待用户输入(或粘贴)一条响应报文，并将其回送给客户端。通过这种方式，type-o-serve
perl监控linux系统资源的脚步
bruce_wang_janet的专栏
08-31 1066
#!/usr/bin/perl -w use strict; my @MoniterDevideName=("cciss/c0d0p1","cciss/c0d0p3","sda"); my @MoniterMountDir=("/"); my $MoniterPeriod = 3; my $LogFileDir='./'; my $HostName = (map {chomp;
使用Apache搭建Web网站服务器
热门推荐
VickHUC的博客
09-29 1万+
    学习一个服务的过程：   此服务器的概述：名字，功能，特点，端口号 安装 配置文件的位置 服务启动关闭脚本，查看端口 此服务的使用方法 修改配置文件，实战举例 排错（从下到上，从内到外）   本节所讲内容： apache服务器常见概念 apache服务器安装及相关配置文件 实战：基于用户和主机的访问控制 实战：部署web服务器，运行一个类人人网的社交网站  ...
使用 Perl 检测 系统进程，实现进程意外退出重启
weixin_34357928的博客
09-27 192
最近RedHat系统中某个关键进程不知道啥米原因，或鸭梨过大。总是无故挂掉。于是写了这个小脚本，自动检测指定进程。使用ps-ef获取内容，if+eq判断如果内容为空，则重新启动进程。本脚本存为xxx.pl然后用crontab定时执行即可。但脚本名字别取为跟所需进程检测相同的名字。例如检测mysql进程。别...
Perl实现的系统监控程序
"这是一个使用Perl编写的系统监控程序，用于监控RedHat Linux主机的系统资源，包括CPU负载、内存使用、网络状况、服务端口和磁盘空间。该程序采用C/S架构，由Perl实现，具有Server和Client两部分。Server负责定期...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值