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;