thinkphp日志分析

#!/usr/bin/perl -w
use strict;
use warnings;
use Tie::File;

####
#   Thinkphp日志分析
#       日志基本格式：{$now} ".$_SERVER['REQUEST_URI']." | {$level}: {$message}\r\n", $type,$destination,$extra
#   使用方法：
#

sub parse_log{
    my $file = shift;
    open my $fd , "<" , $file or die "open file error";
    my %hash ;  #字符串与访问次数哈希表

    while(<$fd>){
        #      2013-11-18  01:30:05+08:00    uri     info   tag-end  Runtime
        if( /\[ (\d{}-\d{}-\d{})T(.+) \] (.+) \| (.+) \[ (.+) \]/ ){
            my $date = $ ;
            my $time = $ ;
            my $uri = $ ;
            my $info = $ ;
            my $runtime = $ ;

            #下面解析 /APP/?s=Module/action 的情况
            if( $uri =~ /(\/.*\/\?s=\w+\/\w+)/ && $info eq "INFO: Tag[ view_end ] --END--" ){
                #print "origin:$_\n$info \t $uri\n" ;
                my $count =  ;
                my $date_key = "$date-$1" ;
                if( exists $hash{$date_key} ){
                    $count = $hash{$date_key} +  ;
                }
                $hash{$date_key} = $count;
            }
        }
    }
    #排序输出结果
    #my @keys = sort { $hash{$b} <=> $hash{$a} or $b cmp $a } keys(%hash);
    my @keys = sort keys(%hash);
    my @vals = @hash{@keys};

    foreach my $key (@keys)
    {
        print "$hash{$key} \t $key\n";
    }
}

sub read_file{
    my $file = shift ;
    parse_log($file);
}

sub read_dir{
    my $log_home = "/data2/log/202-log/mobiapi/1.0" ;
    chdir $log_home or die "chdir error ?!" ;
    my @files = <*> ;
    for my $file (@files){
        read_file($file);
    }
}

sub main
{
    my $file = "/xxx/all.log" ;
    print "———————————————$file———————————————————\n";
    read_file($file);
}

main();