perl
tower888
爱好看书,音乐,计算机
http://hi.baidu.com/tower888
展开
-
使用perl统计日志中单位时间内的请求数
$file="g:/log/x.log"; %map=(); open(IN,"<$file") || die "Couldn't open $filename for reading: $!"; $num=0; $v=0; $str=""; while($line=) { if (!($line=~m/.*logid.*phonenumber.*message.*/)) {#不匹配就继续循环原创 2013-12-13 15:51:16 · 1134 阅读 · 0 评论 -
通过perl统计日志中请求/响应,获取单个用户成功/失败的操作次数。
通过perl统计日志中请求/响应,获取单个用户成功/失败的操作次数。use Encode; #$WORK_HOME="G:/Cache/120876992/study_perl"; $WORK_HOME="/lc/log"; #$inFile="$WORK_HOME/yndx-log.log"; $inFile=; $outFile="$WORK_HOME/out.tmp"; $outTjRes原创 2014-01-14 23:04:35 · 1319 阅读 · 0 评论 -
sublime text执行perl程序
http://hi.baidu.com/fwwlhcjfphdgwxr/item/3d76dc2778637af851fd8763转载 2014-01-18 21:26:02 · 4039 阅读 · 1 评论