linux监测服务日志脚本,LINUX下的一个性能监测脚本

最新推荐文章于 2023-06-28 17:48:52 发布
最新推荐文章于 2023-06-28 17:48:52 发布
阅读量318 收藏
点赞数
文章标签： linux监测服务日志脚本

#!/usr/bin/perl -w

#use Fcntl qw(:flock);

use strict;

use Mail::Sender;

use Sys::Statistics::Linux;

use Fetion;

my $cpu_max=90;        #cpu最大占用率

my $mem_free_mix=10;    #最小可用内才能

my $disk_free_mix=50;    #最小可用磁盘空间

my $max_io=1;        #最大的io wait队列

#my $max_send_times=2;

#my $match_count=0;

my %opt=(sysinfo => 0,

cpustats => 1,

procstats => 0,

memstats => 1,

pgswstats =>0,

netstats => 0,

sockstats => 1,

diskstats => 0,

diskusage => 1,

loadavg => 1,

filestats => 1,

processes => 0,

);

my $lxs = Sys::Statistics::Linux->new(\%opt);

my $cad_check_time=(localtime)[2];        #cad mean cpu and ddram

my $io_check_time=$cad_check_time;

my $disk_usage_check_time=$cad_check_time;

my $warn_flag=0;

my $pre_flag=0;

my $pre_io_check=0;

my $cur_io_flag=0;

my $pre_space_flag=0;

my $cur_space_flag=0;

my $small_space={{},1};

my @space;

my $counter=1;

#print STDOUT Dumper($small_space),"\n";

my $stat;

my @iostat;

while(sleep 2){

my ($cad_flag,$space_flag,$io_flag)=(0,0,0);

$stat = $lxs->get;

@iostat=split /\s/,(`vmstat`)[2];        #这句为后面的IO检查做准备

#如果cpu的占用率大于90％，或者内存占用达到90％，并且平均负载大于5，发送警报邮件和短信通知,这个部分还需要改良，最好进一步分开内存和cpu，因为内存占用很高，负载不一定高的

#--------------------检查cpu和内存的使用情况－－－－－－－－－－－－－－－－－－－

if($stat->cpustats->{cpu}->{total}>$cpu_max||($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100

{

if($stat->loadavg->{avg_1}>2)

{

$pre_flag=$warn_flag;

$warn_flag=1;        #警报标志

if($pre_flag==1)    #为1时，证明之前出现过警报的情况

{

if((localtime)[2]!=$cad_check_time)            #检查是否在同一时段出现警报，默认时间间隔为1小时，同一时段内，只发送一次短信和邮件

{

print 'send when cpu&&ram busy and time !=',"\n";

#&sendMail('loadavg is too hight',$stat->cpustats->{cpu}->{total},($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100,$stat->loadavg->{avg_1});#sendMail(subject,cpu_usage,ram_free,loadavg)

&sendMail(1);            #1 mean cpu&&ram

&sendSms(1,'your phone number','you passwd');

$cad_check_time=(localtime)[2];            #更新最近一次的警报时间

}

}

else

{

#初次发送

print 'send when flag=0, that is the first time',"\n";

#&sendMail('loadavg is too hight',$stat->cpustats->{cpu}->{total},($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100,$stat->loadavg->{avg_1});#sendMail(subject,cpu_usage,ram_free,loadavg)

&sendMail(1);

&sendSms(1,'your phone number','you passwd');

}

$cad_flag=1;

}

else

{

$pre_flag=0;

$cad_flag=0;

}

}

#---------------------------cpu&&内存检查完毕－－－－－－－－－－－－－－－－－－－－－－－－

#-------------------------------------------------------

#----------------检查磁盘空间-----------------------------

#这部分还需要改进，如何去进一步的区别容量满的分区

my $driver;

foreach $driver(keys %{$stat->diskusage})

{

next if $driver!~/^\/dev\//;

#print $driver,"\n";

my $drive=$driver;

#print $drive,"\n";

$driver=~s/\/dev\///gi;

#print $driver,"\n";

#print $drive,"\n";

if($stat->diskusage->{$drive}->{usage}/$stat->diskusage->{$drive}->{total}*100>$disk_free_mix)

{

if(!exists $small_space->{$driver})            #设备是否重复，重复的跳过

{

$small_space->{$driver}->{check_time}=(localtime)[2];            #记录出现警报的时间

$small_space->{$driver}->{space_flag}=1;                #0 mean had checked before,1 not before

$small_space->{$driver}->{free}=sprintf "%.2f",$stat->diskusage->{$drive}->{free}/$stat->diskusage->{$drive}->{total}*100;    #容量取两位小数

print "send when the first time that $driver space is hardly full","\n";

#&sendMail(2);

}

$space_flag=1;

}

else

{

if(exists $small_space->{$driver})

{

delete     $small_space->{$driver}

}

$space_flag=0;

}

}

if((keys %{$small_space})>1)        #排除本来的没用HASH

{

if($counter==1)

{

&sendMail(2);

&sendSms(2,'your phone number','you passwd');

$counter=2;

}

else

{

foreach $driver(keys %{$small_space})

{

next if $driver=~/^HASH/;

if($small_space->{$driver}->{space_flag}==1)

{

if($small_space->{$driver}->{check_time}!=(localtime)[2])            #检查是否为同一时段，相同的跳过，避免重复发信，默认为1小时

{

print 'send when someone disk space is fulland time !=',"\n";

$small_space->{$driver}->{check_time}=(localtime)[2];            #更新时间点

&sendMail(2);

&sendSms(2,'your phone number','you passwd');

}

}

}

}

}

#－－－－－－－－－－检查磁盘空间结束－－－－－－－－－－－－－－－－－

#－－－－－－－－－－－检查磁盘io操作－－－－－－－－－－－－－－－－－

#@iostat=split /\s/,(`vmstat`)[2];        #要求有vmstat这个脚本，在/proc里边

if($iostat[-1]>$max_io)

{

$pre_io_check=$cur_io_flag;

$cur_io_flag=1;

if($pre_io_check==1)

{

if((localtime)[2]!=$io_check_time)

{

print 'send when io busy and time !=',"\n";

$io_check_time=(localtime)[2];

&sendMail(3);

&sendSms(3,'your phone number','you passwd');

}

}

else

{

print 'send when pre_io_check=0, that is the first time',"\n";

&sendMail(3);

&sendSms(3,'your phone number','you passwd');

}

$io_flag=1;

}

else

{

$io_flag=0;

}

#---------------------检查磁盘IO结束－－－－－－－－－－－－－－－－－

&writeLog($cad_flag,$space_flag,$io_flag);                #无论遇到什么警报，都记录在日志上

}        #主循环结束

#---------------------------函数部分－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

#----------------------writeLog fun----------------------------------------------

sub writeLog{

#use Data::Dumper;

my ($cad_flag,$space_flag,$io_flag)=@_;

if($cad_flag||$space_flag||$io_flag)

{

my $time=localtime;

my $log_file='log.txt';

open LOG,">>",$log_file||die "can't open $log_file for write:$!\n";

#if(flock LOG,LOCK_EX)#||die "can't lock $log_file:$!\n";

#{

#    print STDERR "ok\n";

#}

#select LOG;

#time    cpu_usage%    loadavg        ram_free%    disk_space_free%        io_wait        tcp

#      10          0 73     sda1:10,sda2:5,sda3:11         1          6

#if($cad_flag||$space_flag||$io_flag)

#{

#print "$time $stat->cpustats->{cpu}->{total} $stat->loadavg->{avg_1} ",$stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100,$stat->diskusage->{$drive}->{free}/$stat->diskusage->{$drive}->{total}*100," $iostat[-1] $stat->sockstats->{tcp}\n";

#printf("%s %d %d %d %s %d\n",$time,$stat->cpustats->{cpu}->{total},$stat->loadavg->{avg_1},($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100,$iostat[-1],$stat->sockstats->{tcp});

foreach my $dev(keys %{$small_space})        #因为日之中磁盘空间那里比较特别，所以要特殊处理；将整个字段作为一个数组处理，待会儿可以进行join

{

next if $dev=~/^HASH/;

push @space,"$dev:$small_space->{$dev}->{free}";

}

printf LOG ("%s %.2f %.2f %.2f %s %s %d\n",$time,$stat->cpustats->{cpu}->{total},$stat->loadavg->{avg_1},($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100),join(",",@space),$iostat[-1],$stat->sockstats->{tcp};

#}

#select STDOUT;

#flock(LOG,LOCK_UN)||die "can't unlock $log_file:$!\n";

@space=();

close LOG;

}

}

#------------------------writeLog end ------------------------------

#---------------------sendSms fun-----------------------------------

sub sendSms{

my ($warn_type,$num,$passwd,$to_num)=@_;

#my $sms='cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp};

my $sms;

if($warn_type==1)

{

$sms='warning:Loadavg is too high.'.'cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp};

}

elsif($warn_type==2)

{

$sms='warning:Disk space is full.'.'cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp};

}

else

{

$sms='warning:Disk io are busy.'.'cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp};

}

print "init..", Fetion::fx_init(), "\n";

if(Fetion::fs_login($num , $passwd ))#|| die " cannot login , try again please\n";

{#print "get account", Dumper( Fetion::fx_get_account() ), "\n";

print "send to self......";

Fetion::fs_send_sms_to_self($sms);

print "\n";

#print "send to $to_num..";

#Fetion::fs_send_sms_by_mobile_no($to_num, $sms)||die "can't send:$!\n";

#send to someuser of feixin

#print "send to 440227509", Fetion::fs_send_sms(440227509, "你这个白痴"), "\n";

print "loginout", Fetion::fx_loginout(), "\n";

print "terminate", Fetion::fx_terminate(), "\n";

}

else

{

if(open ERR,">>",'err.log')

{

print ERR "can't send sms,please check the usename&&password again or make sure you internet is available\n";

close ERR;

}

else

{

print "can't open err.log to write:$!\n";

}

print "can't send sms,please check the usename&&password again or make sure you internet is available\n";

return -1;

}

}

#-----------------------sendSms fun end------------------------------

#-----------------------sendMail fun------------------------------------

sub sendMail{

my ($warn_type)=@_;

my $subject;

my $msg='cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp};

if($warn_type==1)

{

$subject='warning:Loadavg is too high';

#$msg="cpu usage:$stat->cpustats->{cpu}->{total}% ".'freemem:'.($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100.'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp}.' Disk space:'.join(",",@space);

}

elsif($warn_type==2)

{

$subject='warning:Disk space is full';

foreach my $dev(keys %{$small_space})        #因为日之中磁盘空间那里比较特别，所以要特殊处理；将整个字段作为一个数组处理，待会儿可以进行join

{

next if $dev=~/^HASH/;

push @space,"$dev:$small_space->{$dev}->{free}";

}

$msg='cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp}.' '.join(",",@space);

}

else

{

$subject='warning:Disk io are busy';

}

@space=();

#$msg='cpu usage:'.$stat->cpustats->{cpu}->{total}.'% freemem:'.sprintf("%.2f",($stat->memstats->{memfree}+$stat->memstats->{buffers}+$stat->memstats->{cached})/$stat->memstats->{memtotal}*100).'% system loadavg:'.$stat->loadavg->{avg_1}.'% IO wait:'.$iostat[-1].' TCP:'.$stat->sockstats->{tcp};#.' Disk space:'.join(",",@space);

my $sender;

eval{

$sender=new Mail::Sender();

#my @protocols = $sender->QueryAuthProtocols(); 查询服务器支持的认证方式

if ($sender->MailMsg({

#smtp => 'smtp.163.com',by Default，test@163.com

#from => 'test@163.com', by Default

to =>'test98@163.com',

subject => $subject,     #主题

msg => $msg, #内容

auth => 'LOGIN',            #smtp的验证方式

authid => 'user',        #user

authpwd => 'passwd',    #pwd

}) < 0) {

warn "$Mail::Sender::Error\n";

}

print "warning Mail sent OK.\n";

};

if($@)

{

if(open ERR,">>",'err.log')

{

print ERR "$Mail::Sender::Error\n";

close ERR;

}

else

{

print "can't open err.log to write:$!\n";

}

print "can't send mail,please check the err.log for detail\n";

return -1;

}

}

#--------------------sendMail fun end--------------------------------------

虫啊啊
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
linux的日志监控和定期处理脚本
请大家直接把问题写在评论区或留言，不要只说一句"你好 或 在吗"，我会尽快回复的。
09-17 2859
具体场景：服务器产生的日志量非常大，每天将近100M+的日志量，所以博主写了一个日志的分隔脚本；每隔2小时执行一次，当日志文件超过6M时，将日志进行转存，命名格式为20180917-12.log，这样可以防止单个日志文件过大，打开时非常耗CPU,【曾经测试在linux上打开1G的纯文本文件，2G内存 双核虚拟机几乎崩溃，CPU瞬间飚满；在Windows下更打不开】所以将日志进行切割转存，但由于日...
Linux 一体化监控日志异常告警
Bertram的博客
04-11 842
Linux 一体化监控日志异常告警
【Shell 命令集合 系统管理 】Linux 实时监控日志文件 swatch命令 使用指南
最新发布
探索C++编程的奥秘，分享深入的技术见解和实践，旨在激发读者创造力与解决问题的思维。
06-28 1083
swatch命令是一个用于实时监控日志文件的工具。它可以监视指定的日志文件，并在发现特定的模式或关键字时触发用户定义的操作。
linux监控日志关键字,Shell 脚本实战：日志关键字监控+自动告警
weixin_42535703的博客
05-01 1125
导读该程序使用场景说明：主要用于服务器监控程序日志，如出现关键字异常则触发相应的动作或告警操作，通知到邮件联系人。一、安装邮件服务1、解压tar-jxfmailx-12.4.tar.bz2-C/usr/src/&&cd/usr/src/mailx-12.4/2、编译makeinstallUCBINSTALL=/usr/bin/install异常报错解决方法下载ma...
Linux下脚本实战之系统监控
jks212454的博客
05-03 624
Linux下脚本实战之系统监控
linux shell 脚本监测远程主机端口是否正常
06-25
使用linux shell 脚本轮询检查远程主机端口是否正常 是否存活，并整理归档日志
linux主机基线监测脚本
10-14
Linux主机基线监测是保障系统安全性和稳定性的关键步骤，它涉及到系统配置、权限管理、软件更新、防火墙设置等多个方面。在这个过程中，一个精心设计的脚本如`securitycheck.sh`可以自动化执行一系列检查，确保系统...
Linux巡检脚本，方便、快捷、安全
04-19
该巡检脚本通过简洁有效的命令组合实现了Linux系统基本配置、资源使用情况以及初步网络监测等功能，对于日常运维工作具有较高的实用价值。通过持续改进和完善，可以使脚本更加符合实际需求，进一步提升运维工作的...
read-file--modify.zip_Linux 文件监测
09-19
在Linux系统中，对文件进行实时监测和管理是一项常见的任务，尤其在开发和运维场景下。标题"read-file--modify.zip_Linux 文件监测"暗示我们要讨论的是如何在Linux环境下监测文件的变化，并在检测到文件被修改时执行...
Tomcat监测脚本的实现示例
09-30
该监测脚本使用crontab定时任务来周期性执行，本文提供了如何设置crontab的具体命令，这里示例设置为每5分钟执行一次监测脚本，并将执行结果输出到日志文件中。 通过以上操作，Tomcat监测脚本能够在出现问题时进行...
shell脚本（监控日志发告警邮件）
10-21
监控生产环境nginx日志发告警邮件,需要使用linux系统的定时任务，如5分钟执行或者其他时间间隔
脚本方式实现监控错 误日志文件-支持定制
08-24
按照如下要求完成脚本的编写，并输出运行做屏，项目名称：脚本方式实现监控错 误日志文件，要求如下： 1、脚本2大功能： 目标文件大于某一设定阀值，则移动该文件到某一个指定目录； 目标文件含有ERROR信息，则发出告警邮件到特定邮箱； 2、要求如下： 1） 被监控的文件名和路径可设； 2） 文件大小报警阈值可设； 3） 文件移动目标目录可设置； 4） 报警邮箱地址可设； 5） 移动的文件名在文件名后加带年月日时分秒； 6） 监控需要写日志：记录监控文件的大小、移动信息、发报警邮件信息； 7） 监控周期为1分钟； 8） 测试过程：手动模拟文件增长，直到达到移动阈值； 9） 测试过程：手动在目标文件输入ERROR信息，触发告警邮件； 3、提交本次试卷的脚本和运行截屏： 1） 全量脚本：监控脚本、发邮件脚本； 2） 运行截屏：测试过程截屏、显示日志记录、文件移动的源目录和备份目录； 注意：提交以上两部分内容、打包成一个包名为“学号+姓名”压缩文件。例如：20
Linux，Shell脚本，基于日志监控（checkpoint）实现进程的自动监控及重启
charlie2cindy的博客
06-05 1259
文章目录前言一、程序设计思想二、程序实现1.实现代码总结 前言 部署在Linux服务器上的一个应用跑的时间长了以后有可能会出现进程假死的情况，导致程序不能正常提供服务，通过观察发现当应用假死后，应用日志不会再更新，所以针对该应用本人实现了通过日志监控进而监控进程的目的，当两个检查点之间发生应用假死，则监控进程会重启被监控进程。 一、程序设计思想 功能实现的一个核心概念就是checkPoint，本脚本实现是轮询读取应用日志的最大行数，作为新的checkPoint与上一次的checkPoint（checkP
linux查看告警日志,shell脚本，用于监视Linux中的消息日志（警告，错误和严重）...
weixin_29495679的博客
05-01 3430
shell脚本，用于监视Linux中的消息日志(警告，错误和严重)该脚本将检查文件中的“警告，错误和严重”，并在/var/log/messages找到与之相关的邮件时触发给指定电子邮件ID的邮件。我们不能经常运行此脚本，因为如果服务器上有很多匹配的字符串，它将填充您的收件箱，因此我们可以每天运行一次。如果在昨天的“ /var /log/messages”文件中找到任何给定的字符串，则脚本将向给定的...
Linux 脚本监控
昇聖
04-11 343
1.遇到问题： ①、服务器连接数太多导致服务器挂掉； ②、脚本运行占用内存太高导致脚本被kill，导致已经运行成功的部分无法保存，最终也无法回滚。 2.解决方法： ①、针对问题①将服务迁移到新机器上，并添加CPU、内存等资源监控，添加进程监控； ②、针对问题②提升代码的健壮性，每运行成功一部分就写入磁盘，即使脚本被kill或者是服务器挂掉都可以保证前面一部分已经保存磁盘； ③、用she...
linux 系统监控脚本
jnrjian的博客
05-10 1054
文章标签：awk数据库java #!/bin/sh # Solaris system_monitor #. /.profile day=`date +%m%d%Y` file="/var/log/system/sysinfo$day" if [ -f $file ]; then echo "ok">/dev/null [@more@] #!/bin/sh # Solaris system_monitor #. /.profile day=`date +%m%d%Y` file="...
Linux初级脚本：一个简单的日志核查脚本
weixin_33795743的博客
08-17 145
领导交代任务，要每天检查定时任务有没有执行。虽然简单但太繁琐，写了个脚本偷懒。顺便学习几个bash知识点。温故知新吧。#检查前一天的crontab日志有没有执行JOB1和JOB2两个定时任务 #检查数据库中的数据是否及时清理完 #!/bin/bashdeclare-iDB_STATUS=0 #由于日志日期只有月、日有效，时间不作判断，因此使用date-d参数格式化时间输...
Linux环境shell脚本：如何实现选择查看服务日志的办法?
我先测了
02-04 2410
【代码】Linux环境shell脚本：如何实现选择查看服务日志的办法?
linux 监控日志文件实时输出的方法（tail命令）
Dontla的博客
04-13 5951
tail -f [日志文件路径] 参考文章：总有一种适合你:Linux 下 4 种实时监控日志文件的方法
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值