XML::LibXML：如何将超链接、图片节点替换为对应内容？

针对你需要的两个需求，这里给出具体实现代码和说明：

替换<a>标签为其文本内容 #

要把<a>节点替换成它内部的文本内容，核心是创建文本节点，再用这个文本节点替换原<a>节点。遍历<a>节点时，通过textContent获取节点内的纯文本，用createTextNode生成新文本节点，最后调用replaceNode完成替换：

for my $p ( $dom->findnodes("//p") ) {
    for my $a ( $p->findnodes("./a") ) {
        # 创建包含<a>文本内容的文本节点
        my $text_node = $dom->createTextNode( $a->textContent );
        # 用文本节点替换原<a>节点
        $a->replaceNode($text_node);
    }
}

替换<img>标签为alt属性内容 #

对于<img>节点，提取它的alt属性值，用该值创建文本节点后替换原<img>节点。这里加上默认值处理，避免alt属性不存在时出现异常：

for my $img ( $dom->findnodes("//img") ) {
    # 获取alt属性，不存在则用空字符串替代
    my $alt = $img->getAttribute("alt") // '';
    # 创建包含alt内容的文本节点
    my $text_node = $dom->createTextNode($alt);
    # 用文本节点替换原<img>节点
    $img->replaceNode($text_node);
}

完整代码 #

整合后的完整可运行代码如下：

use XML::LibXML;
use strict;
use warnings q(all);

my $dom = XML::LibXML->load_html( location => pop );

# 处理<p>内的<a>标签，替换为文本内容
for my $p ( $dom->findnodes("//p") ) {
    for my $a ( $p->findnodes("./a") ) {
        my $text_node = $dom->createTextNode( $a->textContent );
        $a->replaceNode($text_node);
    }
}

# 处理<img>标签，替换为alt属性内容
for my $img ( $dom->findnodes("//img") ) {
    my $alt = $img->getAttribute("alt") // '';
    my $text_node = $dom->createTextNode($alt);
    $img->replaceNode($text_node);
}

# 输出处理后的HTML
print $dom->toStringHTML();

关键方法说明 #

• textContent：获取节点及其子节点的所有纯文本，能准确提取<a>内部的文本内容。
• createTextNode：生成XML标准文本节点，自动处理特殊字符转义，避免破坏HTML结构。
• replaceNode：直接修改DOM结构，将原节点替换为新创建的文本节点。
• // ''：Perl 5.10+语法，当getAttribute返回undef（即alt属性不存在）时，用空字符串兜底，避免报错。

内容的提问来源于stack exchange，提问作者Dan Jacobson