Question

我有两个类型为

的xml文件

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test1</members>
        <name>test2</name>
    </types>
    <types>
        <members>test3</members>
        <name>test4</name>
    </types>
    <version>25.0</version>
</Package>

和

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test5</members>
        <name>test6</name>
    </types>
    <version>25.0</version>
</Package>

我想用perl连接这两个来产生结果

  <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <Package xmlns="whatever">
        <types>
            <members>test1</members>
            <name>test2</name>
        </types>
        <types>
            <members>test3</members>
            <name>test4</name>
        </types>
        <types>
            <members>test5</members>
            <name>test6</name>
        </types>
        <version>25.0</version>
    </Package>

如何使用Perl执行此操作？

Answer 1

以下是XML::LibXML的解决方案。基本上它调用insertBefore方法将节点从第二个文档复制到第一个文档。根据需要调整脚本，例如如果在两个包中找到相同的节点，则以不同的方式做事。

use strict;
use XML::LibXML;

my $xml1 = <<'EOF';
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test1</members>
        <name>test2</name>
    </types>
    <types>
        <members>test3</members>
        <name>test4</name>
    </types>
    <version>25.0</version>
</Package>
EOF

my $xml2 = <<'EOF';
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test5</members>
        <name>test6</name>
    </types>
    <version>25.0</version>
</Package>
EOF

my $doc1 = XML::LibXML->new->parse_string($xml1);
my $doc2 = XML::LibXML->new->parse_string($xml2);

my($version_node) = $doc1->findnodes('//*[local-name()="version"]');
die if !$version_node;

for my $types_node ($doc2->findnodes('//*[local-name()="types"]')) {
    $version_node->parentNode->insertBefore($types_node, $version_node);
}

print $doc1->serialize;

Answer 2

我将从CPAN的XML::Merge开始

使用perl合并两个xml文件

2 个答案: