我得到了这个解决方案,但这不适用于嵌套标签,例如多个span标签。你能帮我吗?
message =~ s#
<
(?<tag>span|em|ul|ol)
>
(.*?)
<
/
\k<tag>
>
#
<$+{tag}>
$2
</$+{tag}>
#xg;
答案 0 :(得分:0)
未测试:
use Web::Query qw();
Web::Query
->new_from_html($message)
->find('span,em,ul,ol')
->replace_with(sub { $_->html })
->as_html;