#!/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 , &quo
import requests,sys dirpath=[] def dirscan(url,year): for i in range(1,13): if i < 10: urls=url+'/runtime/log/'+year+'0'+str(i) else: urls=url+'/runtime/log/'+year+str(i) r=requests.get(urls,timeout=10) if r.status_code == 403: print urls dirpath.app