Chinaunix

标题: 匹配两行之间并计数 [打印本页]
作者: nanshanjin    时间: 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之间的数量，以此类推，文件很大，几万行吧
作者: 523066680    时间: 2017-11-06 21:14
回复 1# nanshanjin

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

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

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

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

输出
consensus1 5
consensus2 5
consensus3 8




欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2