Java教程:log4jperl錯(cuò)誤日志提取

字號(hào)： 小 中 大

日志
    #!/bin/perl
    useEncode;
    open(NOTESFILES,$ARGV[0]);
    my%errorMeganotes;
    print ">>>>>>>>>>>>>>",$ARGV[0],"<<<<<<<<<    while(){
    if($_=~/^(d{4}-d{2}-d{2}sd{2}:d{2}:d{2})s+ERRORs+(.*)s/g){
    if($errorMeganotes{$2}){
    push@{$errorMeganotes{$2}},$1;
    }else{
    $errorMeganotes{$2}=[$1];
    }
    }
    }
    for(keys%errorMeganotes){
    my$tmp_keys=$_;
    my@tmp_array=@{$errorMeganotes{$tmp_keys}};
    print"errornumber:>>",scalar(@tmp_array),"<    }
    sh
    #!/bin/sh
    nowDate=$(date-d’-1day’+%Y-%m-%d);
    echo$nowDate
    perl/data/apps/shell/meganotesErrorLog.pl/data/apps/meganotes/tomcat/logs/app/app.log.$nowDate>　_tmp_$nowDate;
    perl/data/apps/shell/meganotesErrorLog.pl/data/apps/schedule/tomcat/logs/app/app.log.$nowDate　>>_tmp_$nowDate;
    mail-s$nowDate-ERROR-log　my@mail.com　<　_tmp_$nowDate;
    rm_tmp_$nowDate;
    結(jié)果：
    >>>>>>>/data/apps/meganotes/tomcat/logs/app/app.log.2009-02-18<<<<<<<<<
    error number :>>2<<
    MusicActionOpLogProxy:142 - music.popularTime=[Invalid field value for field "music.popularTime".]