+ -
当前位置:首页 → 问答吧 → 新手请教一个正则表达式的问题

新手请教一个正则表达式的问题

时间:2010-11-16

来源:互联网

有一行字符串如下:
<lex pos=DT>The</lex> <lex pos=JJ>fifty-third</lex> <lex pos=NN>session</lex> <lex pos=IN>of</lex> <lex pos=DT>the</lex> <lex pos=NN>Committee</lex> <lex pos=IN>on</lex> <lex pos=NNS>Contributions</lex> <lex pos=VBD>was</lex> <lex pos=VBN>held</lex> <lex pos=IN>at</lex> <lex pos=NNP>United</lex> <lex pos=NNPS>Nations</lex> <lex pos=NNP>Headquarters</lex> <lex pos=IN>from</lex> <TIMEX2 TYPE="DATE"><lex pos=CD>14</lex> <lex pos=NNP>June</lex></TIMEX2> <lex pos=TO>to</lex> <TIMEX2 TYPE="DATE"><lex pos=CD>2</lex> <lex pos=NNP>July</lex> <lex pos=CD>1993</lex></TIMEX2> <lex pos=.>.</lex>~
能否只抽取出这两个:
<TIMEX2 TYPE="DATE"><lex pos=CD>14</lex> <lex pos=NNP>June</lex></TIMEX2>
<TIMEX2 TYPE="DATE"><lex pos=CD>2</lex> <lex pos=NNP>July</lex> <lex pos=CD>1993</lex></TIMEX2>
简单来说,就是如何把满足模式的所有串(上面例子中只有两个满足模式的串)都找出来?

作者: huangyunhao   发布时间: 2010-11-16

  1. $str='<lex pos=DT>The</lex> <lex pos=JJ>fifty-third</lex> <lex

  2. pos=NN>session</lex> <lex pos=IN>of</lex> <lex pos=DT>the</lex> <lex

  3. pos=NN>Committee</lex> <lex pos=IN>on</lex> <lex pos=NNS>Contributions</lex>

  4. <lex pos=VBD>was</lex> <lex pos=VBN>held</lex> <lex pos=IN>at</lex> <lex

  5. pos=NNP>United</lex> <lex pos=NNPS>Nations</lex> <lex

  6. pos=NNP>Headquarters</lex> <lex pos=IN>from</lex> <TIMEX2 TYPE="DATE"><lex

  7. pos=CD>14</lex> <lex pos=NNP>June</lex></TIMEX2> <lex pos=TO>to</lex> <TIMEX2

  8. TYPE="DATE"><lex pos=CD>2</lex> <lex pos=NNP>July</lex> <lex

  9. pos=CD>1993</lex></TIMEX2> <lex pos=.>.</lex>~';
  10. @r= $str=~m/<TIMEX.*?<\/TIMEX2>/g;
  11. print $_,"\n" for (@r);
复制代码

作者: DIYBYPERL   发布时间: 2010-11-17