关于日志审查

猪鼻插葱

我想做一个关于查询日志中在一段时间内是否存在某一个字符串的工作 具体的日志形势如下
Sep 19 09:39:19 localhost kernel: imklog 3.22.1, log source = /proc/kmsg started.
Sep 19 09:39:19 localhost rsyslogd: [origin software="rsyslogd" swVersion="3.22.1" x-pid="1565" x-info="http://www.rsyslog.com"] (re)start
Sep 19 09:47:36 localhost firefox: gethostby*.getanswer: asked for "vod.lzu.edu.cn.localdomain", got "wx.redirect.local"
Sep 19 09:47:36 localhost firefox: gethostby*.getanswer: asked for "vod.lzu.edu.cn", got "wx.redirect.local"
Sep 19 11:47:51 localhost kernel: npviewer.bin[7338] general protection ip:116f57c sp:bfddc9c0 error:0 in libflashplayer.so[dfd000+994000]
Sep 19 11:48:10 localhost firefox: gethostby*.getanswer: asked for "vod.lzu.edu.cn", got "wx.redirect.local"
Sep 19 11:49:25 localhost firefox: gethostby*.getanswer: asked for "vod.lzu.edu.cn", got "wx.redirect.local"
Sep 19 11:49:25 localhost firefox: gethostby*.getanswer: asked for "vod.lzu.edu.cn", got "wx.redirect.local"
Sep 19 12:28:35 localhost kernel: npviewer.bin[15863] general protection ip:116f57c sp:bfd1c2c0 error:0 in libflashplayer.so[dfd000+994000]


主要是需要指定处理的日志，开始和结束的时间，指定的字符串，检查这段时间内的日志中是否存在某一个指定的字符串，返回值为真或者假就可以。我是新手，不清楚怎么处理时间这段，各位能帮忙的就麻烦您帮个忙。

珞水的大叔

发一段伪代码：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. 
   
6. sub checktime(){
   
7.     #用这个函数来检查时间是否在范围内，如果是、返回1，如果不是返回0
   
8.     #具体比较因为需求不太明朗，这里留空，请自行补充，呵呵
   
9. }
   
10. 
    
11. my $flag = 'false';
    
12. open FH,"< 日志文件路径";
    
13. while(<FH>){
    
14.     my $line = $_;
    
15.     if($line =~ /^(.+?:\d\d:\d\d)/){
    
16.         my $result = &checktime($1);  #这里$1里存放的就是时间，如：Sep 19 12:28:35
    
17.         if($result > 0 && $line =~ /关键字/){
    
18.             $flag = 'true';
    
19.             next;
    
20.         }
    
21.     }
    
22. }
    
23. close FH;
    
24. return $flag;

复制代码

猪鼻插葱

{:3_200:}谢谢指点