perl中嵌套标签的正则表达式

时间:2013-07-29 10:28:07

标签: regex perl tags nested

我得到了这个解决方案,但这不适用于嵌套标签,例如多个span标签。你能帮我吗?

message =~ s#
<
(?<tag>span|em|ul|ol)   
&gt;
(.*?)
&lt;
/
\k<tag>   
&gt;
#
<$+{tag}>  
$2    
</$+{tag}>
#xg;

1 个答案:

答案 0 :(得分:0)

未测试:

use Web::Query qw();
Web::Query
    ->new_from_html($message)
    ->find('span,em,ul,ol')
    ->replace_with(sub { $_->html })
    ->as_html;