忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 1426 | 回复: 1

匹配两行之间并计数 [复制链接]

论坛徽章:
0
发表于 2017-11-06 13:57 |显示全部楼层
文件格式如下:
consensus
model
primary
primary
primary
primary
consensus
model
primary
primary
primary
primary
consensus
model
primary
primary
primary
primary
primary
primary
primary
consensus

匹配consensus之间的内容并计数,输出
consensus1 number1
consensus2 number2
。。。。
number1是第一个consensus1与第二个consensus2之间的数量,以此类推,文件很大,几万行吧

论坛徽章:
11
子鼠
日期:2014-10-11 16:46:4815-16赛季CBA联赛之山东
日期:2017-11-10 14:32:142016科比退役纪念章
日期:2017-09-02 15:42:4715-16赛季CBA联赛之佛山
日期:2017-08-28 17:11:5515-16赛季CBA联赛之浙江
日期:2017-08-24 16:55:1715-16赛季CBA联赛之青岛
日期:2017-08-17 19:55:2415-16赛季CBA联赛之天津
日期:2017-06-29 10:34:4315-16赛季CBA联赛之四川
日期:2017-05-16 16:38:55黑曼巴
日期:2016-07-19 15:03:112015亚冠之萨济拖拉机
日期:2015-05-22 11:38:532016科比退役纪念章
日期:2018-03-16 10:24:05
发表于 2017-11-06 21:14 |显示全部楼层
回复 1# nanshanjin

计算primary 还是 非consensus的行都算?

  1. #http://bbs.chinaunix.net/thread-4289910-1-1.html

  2. my $spec = "consensus";
  3. my $line;
  4. my ($mi, $ni) = (0, 0);
  5. while ( $line = <DATA> )
  6. {
  7.     if ($line=~/^consensus\r?\n?/i)
  8.     {
  9.         printf "%s%d %d\n", $spec, $mi, $ni if ($mi > 0);
  10.         $mi++;
  11.         $ni = 0;
  12.     }
  13.     else
  14.     {
  15.         $ni++;
  16.     }
  17. }

  18. __DATA__
  19. consensus
  20. model
  21. primary
  22. primary
  23. primary
  24. primary
  25. consensus
  26. model
  27. primary
  28. primary
  29. primary
  30. primary
  31. consensus
  32. model
  33. primary
  34. primary
  35. primary
  36. primary
  37. primary
  38. primary
  39. primary
  40. consensus
复制代码

输出
consensus1 5
consensus2 5
consensus3 8
您需要登录后才可以回帖 登录 | 注册

本版积分规则

【重磅资料】多云网络实战的相关问题汇总!
云网融合的多云网络

本文介绍如何管理私有云数据中心,构建数据中心互联和混合云解决方案。对于OTT 网络架构的深入理解,基本上来源于SIGCOM 的白皮书和一些公开视频。

Overlay SDN 控制器详解

超级核心路由器演进

获得资料 >>
  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP