加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 大数据 > 正文

找出日志中的错误信息并发送邮件

发布时间：2020-12-15 21:06:58 所属栏目：大数据 来源：网络整理
导读：脚本功能： 脚本使用Perl来实现，读取/var/log/messages（也可以是其他日志文件）日志文件，从里面找出error或者warn的行，然后发送邮件。 第一次读取的时候，会记录读取的位置，下次读取的时候会从上次读取的位置的开始读取,如果没有发现error或warn行，则

脚本功能：

脚本使用Perl来实现，读取/var/log/messages（也可以是其他日志文件）日志文件，从里面找出error或者warn的行，然后发送邮件。

第一次读取的时候，会记录读取的位置，下次读取的时候会从上次读取的位置的开始读取,如果没有发现error或warn行，则不发邮件

脚本使用说明：

1.需要的Perl模块
Net::SMTP ? ? ? ? ? ? ??//perl自带，不用安装
Socket ? ? ? ? ? ? ? ? ? ?//perl自带，不用安装
Sys::Hostname ? ??//perl自带，不用安装
Authen::SASL （用使来验证邮件用户名和密码） //需要安装
使用root身份用如下命令来安装Authen::SASL模块： 
      
      
    

  1. root@server?~]#?cpan?Authen::SASL?
    2. 
       
       
  2. ?If?you?do?not?want?to?enter?a?dialog?now,?you?can?answer?'no'?to?this?
    3. 
       
       
  3. ?question?and?I'll?try?to?autoconfigure.?(Note:?you?can?revisit?this?
    4. 
       
       
  4. ?dialog?anytime?later?by?typing?'o?conf?init'?at?the?cpan?prompt.)?
    5. 
       
       
  5. ??
    6. 
       
       
  6. ?Are?you?ready?for?manual?configuration??[yes]?no???//如果有该步骤的话，选择no，自动配置?
    7. 
       
       
  7. ??
    8. 
       
       
  8. ?中间省略。。。?
    9. 
       
       
  9. ?Checking?if?your?kit?is?complete...?
    10. 
       
       
  10. ?Looks?good?
    11. 
       
       
  11. ?Warning:?prerequisite?Digest::HMAC_MD5?0?not?found.?
    12. 
       
       
  12. ?Warning:?prerequisite?ExtUtils::MakeMaker?6.42?not?found.?We?have?6.30.?
    13. 
       
       
  13. ?Writing?Makefile?for?Authen::SASL?
    14. 
       
       
  14. ?----?Unsatisfied?dependencies?detected?during?[G/GB/GBARR/Authen-SASL-2.15.tar.gz]?-----?
    15. 
       
       
  15. ?????Digest::HMAC_MD5?
    16. 
       
       
  16. ?????ExtUtils::MakeMaker?
    17. 
       
       
  17. ?Shall?I?follow?them?and?prepend?them?to?the?queue?
    18. 
       
       
  18. ?of?modules?we?are?processing?right?now??[yes]?yes??
    19. 
       
       
  19. ??
    20. 
       
       
  20. ?Running?make?install?
    21. 
       
       
  21. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL.pm?
    22. 
       
       
  22. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL.pod?
    23. 
       
       
  23. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl.pm?
    24. 
       
       
  24. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl.pod?
    25. 
       
       
  25. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/EXTERNAL.pm?
    26. 
       
       
  26. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/CRAM_MD5.pm?
    27. 
       
       
  27. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/DIGEST_MD5.pm?
    28. 
       
       
  28. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/PLAIN.pm?
    29. 
       
       
  29. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/ANONYMOUS.pm?
    30. 
       
       
  30. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/LOGIN.pm?
    31. 
       
       
  31. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/GSSAPI.pm?
    32. 
       
       
  32. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/EXTERNAL.pm?
    33. 
       
       
  33. ?Installing?/usr/lib/perl5/site_perl/5.8.8/Authen/SASL/Perl/CRAM_MD5.pm?
    34. 
       
       
  34. ?Installing?/usr/share/man/man3/Authen::SASL::Perl.3pm?
    35. 
       
       
  35. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::LOGIN.3pm?
    36. 
       
       
  36. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::CRAM_MD5.3pm?
    37. 
       
       
  37. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::ANONYMOUS.3pm?
    38. 
       
       
  38. ?Installing?/usr/share/man/man3/Authen::SASL.3pm?
    39. 
       
       
  39. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::EXTERNAL.3pm?
    40. 
       
       
  40. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::GSSAPI.3pm?
    41. 
       
       
  41. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::PLAIN.3pm?
    42. 
       
       
  42. ?Installing?/usr/share/man/man3/Authen::SASL::Perl::DIGEST_MD5.3pm?
    43. 
       
       
  43. ?Appending?installation?info?to?/usr/lib/perl5/5.8.8/i386-linux-thread-multi/perllocal.pod?
    44. 
       
       
  44. ???/usr/bin/make?install??--?OK????看到这里就表示安装完成。?
    45. 
       
       
  45. ??
    46. 
       
       
  46. ?
    47. 
      
      

       
       ?
      
      

      
      

       
       测试模块是否安装：
      
      
       
       
    

  1. [root@server1?~]#?perl?-e?"use?Authen::SASL"??????
    2. 
        
        
  2. ?[root@server1?~]#???????????//什么也不显示表明模块已经正确安装了。?
    3. 
        
        
  3. ?[root@server1?~]#?perl?-e?"use?Net::SMTP"?????
    4. 
        
        
  4. ?[root@server1?~]#?
    5. 
        
        
  5. ??[root@server1?~]#?perl?-e?"use?Socket"?????
    6. 
        
        
  6. ?[root@server1?~]#?
    7. 
        
        
  7. ??[root@server1?~]#?perl?-e?"use?Sys::Hostname"???????
    8. 
        
        
  8. ?[root@server1?~]#??
    9. 
       
       
2.需要ROOT身份运行该脚本,如果读取的是 /var/log/messages这个日志文件 
3.可以设置为计划任务，自定义运行时间，如：每30分钟运行一次 
4.服务器需联网才能发送邮件 
5.如果有防火墙请放开25端口： 


       
       
    

  1. iptables?-A?INPUT?-p?tcp?--sport?25?-j?ACCEPT???
    2. 
        
        
  2. iptables?-A?OUPUT??-p?tcp?--dport?25?-j?ACCEPT???
    3. 
       
       
6.一些测试数据 测试数据请下载附件 测试的时候第一次测试会创建/var/log/last_messages.linenumber文件， 第二次测试的时候 需要把该文件清空，或者在/var/log/messages增加一些错误的行，这样才可以测试出效果
7.有什么不对的地方请留言或者发送邮件(chanyipiaomiao@163.com) 8.发送邮件效果如下： 





脚本内容如下：

【第二版】 
      
      
    

  1. #!/usr/bin/perl??
    2. 
       
       
  2. ?use?Net::SMTP;?
    3. 
       
       
  3. ?use?Authen::SASL;?
    4. 
       
       
  4. ?use?Socket;?
    5. 
       
       
  5. ?require?'sys/ioctl.ph';?
    6. 
       
       
  6. ??
    7. 
       
       
  7. ?#日期:2012-09-15_17:25:48?Author:Leo?Email:chanyipiaomiao@163.com?
    8. 
       
       
  8. ?#测试平台:CentOS?6.0,?CentOS?5.6,Red?Hat?Enterprise?Linux?AS?release?4?
    9. 
       
       
  9. ??
    10. 
       
       
  10. ?#要读取的日志文件?
    11. 
       
       
  11. ?my?$logfile?="/var/log/messages";?
    12. 
       
       
  12. ?my?$countfile?="/var/log/last_messages.size";?
    13. 
       
       
  13. ??
    14. 
       
       
  14. ?#发送邮件设置?
    15. 
       
       
  15. ?my?$smtp_host?=?'smtp.163.com';?
    16. 
       
       
  16. ?my?$from?=?'bookfm_2knowledgeq@163.com';?
    17. 
       
       
  17. ?my?$password?=?'123456';?
    18. 
       
       
  18. ?my?$to?=?'chanyipiaomiao@163.com';?
    19. 
       
       
  19. ??
    20. 
       
       
  20. ?#定义邮件主题中显示的那个接口的IP地址，默认是eth0?
    21. 
       
       
  21. ?my?$interface?=?"eth0";?
    22. 
       
       
  22. ??
    23. 
       
       
  23. ?#定义正则表达式??
    24. 
       
       
  24. ?my?$pattern?=?"(?:error|warn)";?
    25. 
       
       
  25. ??
    26. 
       
       
  26. ?#定义邮件主题?
    27. 
       
       
  27. ?my?$subject?=?"Error?Log";?
    28. 
       
       
  28. ??
    29. 
       
       
  29. ?#读取上一次日志文件的大小?
    30. 
       
       
  30. ?my?$last_size;?
    31. 
       
       
  31. ?if?(-z?$countfile){?
    32. 
       
       
  32. ????$last_size?=?0;?
    33. 
       
       
  33. ?}?
    34. 
       
       
  34. ?elsif?(!?-e?$countfile?){?
    35. 
       
       
  35. ????warn?"[warning]Can't?read?"$countfile",the?file?does't?exists!n";?
    36. 
       
       
  36. ????$last_size?=?0;?
    37. 
       
       
  37. ?}?
    38. 
       
       
  38. ?else?{?
    39. 
       
       
  39. ????open?COUNTFILEREAD?,?"<",?$countfile?or?die?"Can't?read?"$countfile"?:?$!?";?
    40. 
       
       
  40. ????chomp($last_size?=?<COUNTFILEREAD>);?
    41. 
       
       
  41. ????close?COUNTFILEREAD;?
    42. 
       
       
  42. ?}?
    43. 
       
       
  43. ?????
    44. 
       
       
  44. ?#写入这次日志文件的大小?到??/var/log/last_messages.size?
    45. 
       
       
  45. ?open?COUNTFILEWRITE,?">",?$countfile?or?die?"can't?write?$countfile?:?$!";?
    46. 
       
       
  46. ?my?$this_size?=?-s?$logfile;?
    47. 
       
       
  47. ?print?COUNTFILEWRITE?$this_size?,"n";?
    48. 
       
       
  48. ?close?COUNTFILEWRITE;?
    49. 
       
       
  49. ??
    50. 
       
       
  50. ?#读取IP地址?
    51. 
       
       
  51. ?sub?getIP()?{?
    52. 
       
       
  52. ?????my?$packpack?=?pack("a*",?shift);?
    53. 
       
       
  53. ?????my?$socket;?
    54. 
       
       
  54. ?????socket($socket,?AF_INET,?SOCK_DGRAM,?0);?
    55. 
       
       
  55. ?????ioctl($socket,?SIOCGIFADDR(),?$pack);?
    56. 
       
       
  56. ?????$ipaddr?=?inet_ntoa(substr($pack,20,4));?
    57. 
       
       
  57. ?}?
    58. 
       
       
  58. ??
    59. 
       
       
  59. ?#得到日期?
    60. 
       
       
  60. ?sub?getDate?{?
    61. 
       
       
  61. ???????my?($sec,?$min,?$hour,?$mday,?$mon,?$year)?=?(localtime)[0?..5];?
    62. 
       
       
  62. ???????my?$date?=?sprintf?"%4d-%02d-%02d?%2d:%02d:%02d"?,$year?+?1900,$mon?+?1?,$mday?,$hour?,$min?,$sec;?
    63. 
       
       
  63. ?}?
    64. 
       
       
  64. ??
    65. 
       
       
  65. ?#发送邮件函数?
    66. 
       
       
  66. ?sub?SendMail?{?
    67. 
       
       
  67. ????my?$date?=?&getDate;?
    68. 
       
       
  68. ????my?$ipaddr?=?&getIP($interface);?
    69. 
       
       
  69. ????my?$subjects?=?"$subject@${ipaddr}?Time:$daten";?
    70. 
       
       
  70. ????my?$smtp?=?Net::SMTP->new($smtp_host);?
    71. 
       
       
  71. ????$smtp->auth($from,$password)?||?print?"Email?user?or?password?Auth?Error!n";?
    72. 
       
       
  72. ????$smtp->mail($from);?
    73. 
       
       
  73. ????$smtp->to($to);?
    74. 
       
       
  74. ????$smtp->data();?
    75. 
       
       
  75. ????$smtp->datasend("Subject:$subjectsn");?
    76. 
       
       
  76. ????$smtp->datasend("n");?
    77. 
       
       
  77. ????$smtp->datasend("@_nn");?
    78. 
       
       
  78. ????$smtp->dataend();?
    79. 
       
       
  79. ????$smtp->quit;?
    80. 
       
       
  80. ?}?
    81. 
       
       
  81. ??
    82. 
       
       
  82. ?#读取日志函数，并找出其中到错误行或者警告行?
    83. 
       
       
  83. ?open?MESSAGESLOG?,?"$logfile"?or?die?"Can't?read?$logfile?:?$!";?
    84. 
       
       
  84. ?if?($last_size?<?$this_size){?
    85. 
       
       
  85. ????seek(MESSAGESLOG,$last_size,0)?||?die?"$!n";?#主要语句?
    86. 
       
       
  86. ????my?@errorarray;?
    87. 
       
       
  87. ????while(<MESSAGESLOG>){?
    88. 
       
       
  88. ????????push?@errorarray,$_?if?(/$pattern/i);?
    89. 
       
       
  89. ????}?
    90. 
       
       
  90. ????&SendMail(@errorarray)?if?(@errorarray.length?!=?0?);?
    91. 
       
       
  91. ?}?
    92. 
       
       
  92. ?close?MESSAGESLOG;?
    93. 
       
       
  93. ??
    94. 
      
      
  
【第一版】
请注意修改邮件的信息

      
      
    

  1. #!/usr/bin/perl??
    2. 
       
       
  2. ?use?Net::SMTP;?
    3. 
       
       
  3. ?use?Authen::SASL;?
    4. 
       
       
  4. ?use?Socket;?
    5. 
       
       
  5. ?use?Sys::Hostname;?
    6. 
       
       
  6. ?require?'sys/ioctl.ph';?
    7. 
       
       
  7. ??
    8. 
       
       
  8. ?#DATE:2012-08-25_18:28:47?Author:Leo?Email:chanyipiaomiao@163.com?
    9. 
       
       
  9. ?#Test?Platform:CentOS?6.0,Red?Hat?Enterprise?Linux?AS?release?4?
    10. 
       
       
  10. ??
    11. 
       
       
  11. ?#Log?file?setting?
    12. 
       
       
  12. ?my?$logfile?="/var/log/messages";?
    13. 
       
       
  13. ?my?$countfile?="/var/log/last_messages.linenumber";?
    14. 
       
       
  14. ??
    15. 
       
       
  15. ?#Email?Setting?
    16. 
       
       
  16. #注意修改这里面的邮件信息
    17. 
       
       
  17. ?my?$smtp_host?=?'smtp.163.com';?
    18. 
       
       
  18. ?my?$from?=?'bookfm_2knowledgeq@163.com';?
    19. 
       
       
  19. ?my?$password?=?'123456';?
    20. 
       
       
  20. ?my?$to?=?'chanyipiaomiao@163.com';?
    21. 
       
       
  21. ??
    22. 
       
       
  22. ?#custom?display?email?subject?network?interface?address,?default?eth0?
    23. 
       
       
  23. #发送邮件的时候，邮件的主题里面显示的那个接口的IP地址，默认是eth0?

    24. 
       
       
  24. ?my?$interface?=?"eth0";?
    25. 
       
       
  25. ??
    26. 
       
       
  26. ?#custom?regular?expression??
    27. 
       
       
  27. 　#如果不想看到warn的行，那么就把该表达式修改为"error"
    28. 
       
       
  28. ?my?$pattern?=?"(?:error|warn)";?
    29. 
       
       
  29. ??
    30. 
       
       
  30. ?#custom?email?subject?
    31. 
       
       
  31. ?my?$subject?=?"Error?Log";?
    32. 
       
       
  32. ??
    33. 
       
       
  33. ?#read?messages?log?file?
    34. 
       
       
  34. ?open?MESSAGESLOG?,?"$logfile"?or?die?"Can't?read?$logfile?:?$!";?
    35. 
       
       
  35. ?my?@logarray?=?<MESSAGESLOG>;?
    36. 
       
       
  36. ?close?MESSAGESLOG;?
    37. 
       
       
  37. ??
    38. 
       
       
  38. ?#read?last?messages?logfile?linenumber?
    39. 
       
       
  39. ?my?$last_linenumber;?
    40. 
       
       
  40. ?if?(-z?$countfile){?
    41. 
       
       
  41. ????$last_linenumber?=?0;?
    42. 
       
       
  42. ?}?
    43. 
       
       
  43. ?elsif?(!?-e?$countfile?){?
    44. 
       
       
  44. ????warn?"[warning]Can't?read?"$countfile",the?file?does't?exists!n";?
    45. 
       
       
  45. ????$last_linenumber?=?0;?
    46. 
       
       
  46. ?}?
    47. 
       
       
  47. ?else?{?
    48. 
       
       
  48. ????open?COUNTFILEREAD?,?$countfile?or?die?"Can't?read?"$countfile"?:?$!?";?
    49. 
       
       
  49. ????chomp($last_linenumber?=?<COUNTFILEREAD>);?
    50. 
       
       
  50. ????close?COUNTFILEREAD;?
    51. 
       
       
  51. ?}?
    52. 
       
       
  52. ?????
    53. 
       
       
  53. ?#wirte?this_linenumber?to??/tmp/last_messages.linenumber?
    54. 
       
       
  54. ?open?COUNTFILEWRITE,?$countfile?or?die?"can't?write?$countfile?:?$!";?
    55. 
       
       
  55. ?my?$this_linenumber?=?@logarray?;?
    56. 
       
       
  56. ?print?COUNTFILEWRITE?$this_linenumber?,"n";?
    57. 
       
       
  57. ?close?COUNTFILEWRITE;?
    58. 
       
       
  58. ??
    59. 
       
       
  59. ?#get?ip?address?
    60. 
       
       
  60. ?sub?getIP()?{?
    61. 
       
       
  61. ?????my?$packpack?=?pack("a*",4));?
    62. 
       
       
  62. ?};?
    63. 
       
       
  63. ??
    64. 
       
       
  64. ?#get?date?
    65. 
       
       
  65. ?sub?getDate?{?
    66. 
       
       
  66. ???????my?($sec,$sec;?
    67. 
       
       
  67. ?}?
    68. 
       
       
  68. ??
    69. 
       
       
  69. ?#send?mail?function?
    70. 
       
       
  70. ?sub?SendMail?{?
    71. 
       
       
  71. ????my?$date?=?&getDate;?
    72. 
       
       
  72. ????my?$ipaddr?=?&getIP($interface);?
    73. 
       
       
  73. ????my?$subjects?=?"$subject@${ipaddr}?Time:$daten";?
    74. 
       
       
  74. ????my?$smtp?=?Net::SMTP->new($smtp_host);?
    75. 
       
       
  75. ????$smtp->auth($from,$password)?||?print?"Email?user?or?password?Auth?Error!n";?
    76. 
       
       
  76. ????$smtp->mail($from);?
    77. 
       
       
  77. ????$smtp->to($to);?
    78. 
       
       
  78. ????$smtp->data();?
    79. 
       
       
  79. ????$smtp->datasend("Subject:$subjectsn");?
    80. 
       
       
  80. ????$smtp->datasend("n");?
    81. 
       
       
  81. ????$smtp->datasend("@_nn");?
    82. 
       
       
  82. ????$smtp->dataend();?
    83. 
       
       
  83. ????$smtp->quit;?
    84. 
       
       
  84. ?}?
    85. 
       
       
  85. ??
    86. 
       
       
  86. ?#find?error?or?warn?line?
    87. 
       
       
  87. ?my?@errorarray;?
    88. 
       
       
  88. ?if?($last_linenumber?<?$this_linenumber){?
    89. 
       
       
  89. ???????for?(my?$i?=?$last_linenumber;?$i?<?$this_linenumber;?$i++){?
    90. 
       
       
  90. ????????????if?($logarray[$i]?=~?/$pattern/i?){?
    91. 
       
       
  91. ????????????????push?@errorarray?,$logarray[$i];?
    92. 
       
       
  92. ???????????}?
    93. 
       
       
  93. ??????}?
    94. 
       
       
  94. ??????&SendMail(@errorarray)?unless?(0?==?@errorarray.length);?
    95. 
       
       
  95. ?}?
    96.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同