如何取得兩個<TAG>中間的Strings...

apile

在google上面看到的..也許有人有用..
<br>;
<pre>;
ccc
ddd
eee
</pre>;
<br>;
1.
print join '<br>;'=>;map{ chomp;$_} grep{/<pre>;..m{</pre>;} <DATA>;;
會打印出
<pre>;<br>;ccc<br>;ddd<br>;eee<br>;</pre>;
2.不包含<pre>;</pre>;
print join '<br>;'=>;map{chomp;$_} grep{/<pre>;/..m{</pre>;} &amp;&amp; !/<pre>;/ &amp;&amp; !m{</pre>;}}<DATA>;;

3.不包含<pre>;</pre>;
print join '<br>;'=>;map{chomp;$_} grep{$r=/<pre>;/..m{</pre>;} &amp;&amp; $r>;1 &amp;&amp; $r!~/e/i}<DATA>;;

4.不包含<pre>;</pre>;
my @line=grep{/<pre>;/..m{</pre>;}/} <DATA>;;
chomp @line;
shift @line;
pop   @line;
print join '<br>;'=>;@line;

四種方法都可以取出兩個TAG中間的Strings.....
但是第一種方式會保留TAG..其他不會..
這個用法應該蠻好用的才對...

deathcult

good!3Q!

mwm5

学习~顺带整理下，转成了简体 ^_^

在google上面看到的..也许有人有用..

<br>
<pre>
ccc
ddd
eee
</pre>
<br>

1.
print join '<br>' => map { chomp; $_ } grep { /<pre>/ .. m{</pre>} } <DATA>;
结果：<pre><br>ccc<br>ddd<br>eee<br></pre>

2.不包含<pre></pre>
print join '<br>'=>map{chomp;$_} grep{/<pre>/..m{</pre>} && !/<pre>/ && !m{</pre>}}<DATA>;
结果：ccc<br>ddd<br>eee

3.不包含<pre></pre>
print join '<br>'=>map{chomp;$_} grep{$r=/<pre>/..m{</pre>} && $r>1 && $r!~/e/i}<DATA>;
结果：<pre><br>ccc<br>ddd<br>eee<br></pre>

4.不包含<pre></pre>
my @line=grep{/<pre>/..m{</pre>}/} <DATA>;
chomp @line;
shift @line;
pop   @line;
print join '<br>'=>@line;

结果：ccc<br>ddd<br>eee

四种方法都可以取出两个TAG中间的Strings.....
但是第一种方式会保留TAG..其他不会..
这个用法应该蛮好用的才对...

[ 本帖最后由 mwm5 于 2010-1-2 19:11 编辑 ]

mwm5

第二个有些问题
会打印出<pre>r>ccc<br>ddd<br>eee<br></pre><br><br>

print grep { /<pre>/..m{</pre>} && !/<pre>/ &&!m{</pre>} } <DATA>;
输出的结果是

<pre>
ccc
ddd
eee
</pre>
<br>

mwm5

print grep { (/<pre>/..m{</pre>}) && !/<pre>/ &&!m{</pre>} } <DATA>;

OK了 ^_^
range operator上下文的问题。。hoho