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

你可能感兴趣的文章
Neo4j(2):环境搭建
查看>>
Neo私链
查看>>
nessus快速安装使用指南(非常详细)零基础入门到精通,收藏这一篇就够了
查看>>
Nessus漏洞扫描教程之配置Nessus
查看>>
Nest.js 6.0.0 正式版发布,基于 TypeScript 的 Node.js 框架
查看>>
nestJS学习
查看>>
Net 应用程序如何在32位操作系统下申请超过2G的内存
查看>>
NetApp凭借领先的混合云数据与服务把握数字化转型机遇
查看>>
NetBeans IDE8.0需要JDK1.7及以上版本
查看>>
netbeans生成的maven工程没有web.xml文件 如何新建
查看>>
netcat的端口转发功能的实现
查看>>
netfilter应用场景
查看>>
netlink2.6.32内核实现源码
查看>>
NetMizer-日志管理系统 dologin.php SQL注入漏洞复现(XVE-2024-37672)
查看>>
Netpas:不一样的SD-WAN+ 保障网络通讯品质
查看>>
NetScaler的常用配置
查看>>
netsh advfirewall
查看>>
NETSH WINSOCK RESET这条命令的含义和作用?
查看>>
netstat命令用法详解
查看>>
Netstat端口占用情况
查看>>