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

你可能感兴趣的文章
NFS安装配置
查看>>
NFS服务器配置-服务启动与停止
查看>>
NFS的安装以及windows/linux挂载linux网络文件系统NFS
查看>>
NFS的常用挂载参数
查看>>
NFS网络文件系统
查看>>
NFS远程目录挂载
查看>>
nft文件传输_利用remoting实现文件传输-.NET教程,远程及网络应用
查看>>
NFV商用可行新华三vBRAS方案实践验证
查看>>
ng build --aot --prod生成文件报错
查看>>
ng 指令的自定义、使用
查看>>
ng6.1 新特性:滚回到之前的位置
查看>>
nghttp3使用指南
查看>>
Nginx
查看>>
nginx + etcd 动态负载均衡实践(一)—— 组件介绍
查看>>
nginx + etcd 动态负载均衡实践(三)—— 基于nginx-upsync-module实现
查看>>
nginx + etcd 动态负载均衡实践(二)—— 组件安装
查看>>
nginx + etcd 动态负载均衡实践(四)—— 基于confd实现
查看>>
Nginx + Spring Boot 实现负载均衡
查看>>
Nginx + Tomcat + SpringBoot 部署项目
查看>>
Nginx + uWSGI + Flask + Vhost
查看>>