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

Question

我得到了这个解决方案，但这不适用于嵌套标签，如多个跨度标签。你能帮我吗？

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

Answer 1

未经测试：

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