博客
关于我
使用perl统计日志中单位时间内的请求数
阅读量:732 次
发布时间:2019-03-21

本文共 268 字,大约阅读时间需要 1 分钟。

文件路径为“g:/log/x.log”;要以只读方式打开该文件进行处理,如果打开失败则输出相应错误信息。初始化读取变量 $num 和 $v,以及空字符串 $str。循环读取输入文件中的每一行内容。若当前行内容匹配正则表达式 /.*logid.*phonenumber.*message./,则说明符合条件。对匹配到的内容进行截断处理,取前20个字符作为键。检查键存在于字典 $map 中:- 如果存在,增加计数值。- 如果不存在,创建新键,并设置初始计数值。遍历字典 $map 中的所有键值对,统计出现次数超过40的情况,输出相应结果。

转载地址:http://ztbgz.baihongyu.com/

你可能感兴趣的文章
memcache、redis原理对比
查看>>
memset初始化高维数组为-1/0
查看>>
Metasploit CGI网关接口渗透测试实战
查看>>
Metasploit Web服务器渗透测试实战
查看>>
Moment.js常见用法总结
查看>>
MongoDB出现Error parsing command line: unrecognised option ‘--fork‘ 的解决方法
查看>>
MongoDB学习笔记(8)--索引及优化索引
查看>>
ms sql server 2008 sp2更新异常
查看>>
MS UC 2013-0-Prepare Tool
查看>>
msbuild发布web应用程序
查看>>
MSCRM调用外部JS文件
查看>>
MSEdgeDriver (Chromium) 不适用于版本 >= 79.0.313 (Canary)
查看>>
msf
查看>>
MSSQL数据库查询优化(一)
查看>>
MSSQL日期格式转换函数(使用CONVERT)
查看>>
MSTP多生成树协议(第二课)
查看>>
MSTP是什么?有哪些专有名词?
查看>>
Mstsc 远程桌面链接 And 网络映射
查看>>
Myeclipse常用快捷键
查看>>
MyEclipse用(JDBC)连接SQL出现的问题~
查看>>