摘要：
#!/usr/bin/perl -wuse 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 , "){ # 2013-11-18 01:30:05+08:00 uri i... 阅读全文