博客
关于我
使用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/

你可能感兴趣的文章
MyEclipse更改项目名web发布名字不改问题
查看>>
MyEclipse用(JDBC)连接SQL出现的问题~
查看>>
mt-datetime-picker type="date" 时间格式 bug
查看>>
myeclipse的新建severlet不见解决方法
查看>>
MyEclipse设置当前行背景颜色、选中单词前景色、背景色
查看>>
Mtab书签导航程序 LinkStore/getIcon SQL注入漏洞复现
查看>>
myeclipse配置springmvc教程
查看>>
MyEclipse配置SVN
查看>>
MTCNN 人脸检测
查看>>
MyEcplise中SpringBoot怎样定制启动banner?
查看>>
MyPython
查看>>
MTD技术介绍
查看>>
MySQL
查看>>
MySQL
查看>>
mysql
查看>>
MTK Android 如何获取系统权限
查看>>
MySQL - 4种基本索引、聚簇索引和非聚索引、索引失效情况、SQL 优化
查看>>
MySQL - ERROR 1406
查看>>
mysql - 视图
查看>>
MySQL - 解读MySQL事务与锁机制
查看>>