關(guān)于日志審查

豬鼻插蔥

我想做一個(gè)關(guān)于查詢?nèi)罩局性谝欢螘r(shí)間內(nèi)是否存在某一個(gè)字符串的工作 具體的日志形勢(shì)如下
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]


主要是需要指定處理的日志，開(kāi)始和結(jié)束的時(shí)間，指定的字符串，檢查這段時(shí)間內(nèi)的日志中是否存在某一個(gè)指定的字符串，返回值為真或者假就可以。我是新手，不清楚怎么處理時(shí)間這段，各位能幫忙的就麻煩您幫個(gè)忙。

珞水的大叔

發(fā)一段偽代碼：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. 
   
6. sub checktime(){
   
7.     #用這個(gè)函數(shù)來(lái)檢查時(shí)間是否在范圍內(nèi)，如果是、返回1，如果不是返回0
   
8.     #具體比較因?yàn)樾枨蟛惶�明朗，這里留空，請(qǐng)自行補(bǔ)充，呵呵
   
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里存放的就是時(shí)間，如：Sep 19 12:28:35
    
17.         if($result > 0 && $line =~ /關(guān)鍵字/){
    
18.             $flag = 'true';
    
19.             next;
    
20.         }
    
21.     }
    
22. }
    
23. close FH;
    
24. return $flag;

復(fù)制代碼

豬鼻插蔥

{:3_200:}謝謝指點(diǎn)