首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 问个嵌套匹配的正则

问个嵌套匹配的正则

时间：2011-07-05

来源：互联网

  1. $str=<<TEXT

  3. options nofmterr;
  4. data ecg;
  5.         set hu.ecg;
  6.         tpd=scan(egtpd,1, ' ');
  7.         where  substr(cpevent, 1, 9)^='SCREENING';
  8.    for tpd=1 to 10;
  9.       output;
  10.      put tpd=;
  11.             output;
  12.             output
  13. run;



  17. data ecg;
  18. ........
  19. run;
  20. data pk;
  21. ........
  22. output;
  23. ......
  24. output;
  25. .....
  26. output;
  27. run;
  28. TEXT
  29. ;
复制代码
上面的文本中　只把　

　data xx
      出现三条output
  run;
这个代码匹配出来
意思就是　在data ... run结构中如果output出现三次　则匹配

作者: yakczh   发布时间: 2011-07-05

为什么非要用 RE 这个按行写多简单

作者: zhlong8   发布时间: 2011-07-05

回复 zhlong8


    因为正则是写成参数从配置文件中读出来的，匹配新的规则只需要修改配置文件，不需要改代码

作者: yakczh   发布时间: 2011-07-05

本帖最后由 jason680 于 2011-07-05 13:50 编辑

# cat data_run.pl
  1. use strict;
  2. use warnings;
  3. my $sOutput_count;
  4. my $sData;

  6. while(<DATA>){
  7.   chomp;
  8.   if(m/\s*data\s+.+/){
  9.     $sOutput_count = 0;
  10.     $sData = $_;
  11.   }
  12.   $sOutput_count++ if(m/^\s*output;/);

  14.   if(m/^\s*run;\s*$/){
  15.     if($sOutput_count == 3){
  16.       print "match $sData\n";
  17.     }
  18.   }

  20. }


  23. __DATA__
  24. options nofmterr;
  25. data ecg;
  26.         set hu.ecg;
  27.         tpd=scan(egtpd,1, ' ');
  28.         where  substr(cpevent, 1, 9)^='SCREENING';
  29.    for tpd=1 to 10;
  30.       output;
  31.      put tpd=;
  32.             output;
  33.             output
  34. run;



  38. data ecg;
  39. ........
  40. run;
  41. data pk;
  42. ........
  43. output;
  44. ......
  45. output;
  46. .....
  47. output;
  48. run;
复制代码
# perl data_run.pl
match data ecg;
match data pk;

作者: jason680   发布时间: 2011-07-05

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net