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

huangyunhao

有一行字符串如下：
<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>
简单来说，就是如何把满足模式的所有串（上面例子中只有两个满足模式的串）都找出来？

DIYBYPERL

1. $str='<lex pos=DT>The</lex> <lex pos=JJ>fifty-third</lex> <lexpos=NN>session</lex> <lex pos=IN>of</lex> <lexpos=DT>the</lex> <lexpos=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> <lexpos=NNP>United</lex> <lex pos=NNPS>Nations</lex> <lexpos=NNP>Headquarters</lex> <lex pos=IN>from</lex> <TIMEX2 TYPE="DATE"><lexpos=CD>14</lex> <lex pos=NNP>June</lex></TIMEX2> <lex pos=TO>to</lex> <TIMEX2TYPE="DATE"><lex pos=CD>2</lex> <lex pos=NNP>July</lex> <lexpos=CD>1993</lex></TIMEX2> <lex pos=.>.</lex>~';
   
2. @r= $str=~m/<TIMEX.*?<\/TIMEX2>/sg;
   
3. print $_,"\n" for (@r);

复制代码