新浦京81707con > 注册购买 > 新萄京手机版thinkphp日志分析

原标题:新萄京手机版thinkphp日志分析

浏览次数:77 时间:2019-07-10

#!/usr/bin/perl -w  use strict;  use warnings;  use Tie::File;    ####  #   Thinkphp日志分析  #       日志基本格式:{$now} ".$_SERVER['REQUEST_URI']." | {$level}: {$message}rn", $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{4}-d{2}-d{2})T(. ) ] (. ) | (. ) [ (. ) ]/ ){              my $date = $1 ;              my $time = $2 ;              my $uri = $3 ;              my $info = $4 ;              my $runtime = $5 ;                            #下面解析 /APP/?s=Module/action 的情况              if( $uri =~ /(/.*/?s=w /w )/ && $info eq "INFO: Tag[ view_end ] --END--" ){                  #print "origin:$_n$info t $urin" ;                  my $count = 1 ;                  my $date_key = "$date-$1" ;                   if( exists $hash{$date_key} ){                      $count = $hash{$date_key}   1 ;                  }                  $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 $keyn";      }  }    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();

新萄京手机版, 


本文由新浦京81707con发布于注册购买,转载请注明出处:新萄京手机版thinkphp日志分析

关键词: 新浦京81707con

上一篇:ThinkPHP自动验证功能详解,自动验证

下一篇:没有了