求一正则表达式处理部分html标签

yvan.zhu

求一正则表达式处理部分html标签; 例如我需要保留所有与字体相关的标签, 对于下面的内容
<font size="1"> <a href="/static/B">title1</a> </font> abc <strong> title 2</strong> def <h3>title3</h3>
我希望用一条正则替换后得到：
<font size="1"> title1 </font> abc <strong> title 2</strong> def <h3>title3</h3>

请问能如何实现？

hu145165

1. $str = qq(<font size="1"> <a href="/static/B">title1</a> </font> abc <strong> title 2</strong> def <h3>title3</h3> );
   
2. $str =~ s/<\/?a.*?>//g;
   
3. print $str;

复制代码

输出
<font size=1> title1 </font> abc <strong> title 2</strong> def <h3>title3</h3>

[ 本帖最后由 hu145165 于 2009-11-4 15:50 编辑 ]

yvan.zhu

原帖由 hu145165 于 2009-11-4 15:47 发表
$str = qq( title1  abc  title 2 def title3 );
$str =~ s///g;
print $str;
输出
title1  abc  title 2 def title3

谢谢，我理解你的意思；实际的一篇html页面有太多的标签；依照你的方法，我只能去掉url;其它标签如何处理；我认为我们应该考虑如何移出 font , strong 和h标签以外的标签.

hu145165

:wink: 慢慢求证就行了

[ 本帖最后由 hu145165 于 2009-11-4 16:23 编辑 ]

meihuaqi

$str = qq(<font size="1"> <a href="/static/B">title1</a> </font> abc <strong> title 2</strong> def <h3>title3</h3> );
$str =~ s/<\/?[^fsh].*?>//g;                                                              
print $str;  

输出
<font size="1"> title1  abc <strong> title 2 def <h3>title3

还是不对，楼主可以改进一下

yvan.zhu

原帖由 meihuaqi 于 2009-11-4 17:13 发表
$str = qq( title1  abc  title 2 def title3 );
$str =~ s///g;                                                              
print $str;  

输出
title1  abc  title 2 def title3

还是不对，楼 ...

这个应该是保留了以f, s, h开始的标签，这样并不可靠。
我本来打算这样做：先得到所有的标签，让后循环去判断处理；但是这样效率太差了。