忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 495 | 回复: 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之间的数量,以此类推,文件很大,几万行吧

论坛徽章:
10
子鼠
日期:2014-10-11 16:46:482016科比退役纪念章
日期: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:5315-16赛季CBA联赛之山东
日期:2017-11-10 14:32:14
发表于 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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP