perl의 중첩 태그에 대한 정규식

Question

이 솔루션이 있지만 여러 span 태그와 같은 중첩 태그에 대해 작동하지 않습니다. 너 나 좀 도와 줄 수있어? 테스트되지 않은

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;