xml - 如何使用 XML :Perl 将子元素添加到 XML 中的节点

Question

我正在尝试使用 XML:Twig 将子元素添加到 XML 中的节点。我的 XML 是

 <Install>
<version >
<number>6.0</number>
<build>1037124</build>
<path>path</path>
<kind>kind</kind>
</version>
<version >
<number>7.0</number>
<build>1037124</build>
<path>path</path>
<kind>kind</kind>
</version>
</Install>

我想要的输出是:-

 <Install>
<version >
<number>6.0</number>
<build>1037124</build>
<path>path/path>
<kind>kind</kind>
<patch>patch</patch>
<patchv>patchv</patchv>  
</version>
<version >
<number>7.0</number>
<build>1037124</build>
<path>path</path>
<kind>kind</kind>
</version>
</Install>

我想在编号为 6.0 的父版本中添加两个新的子节点

我试过这段代码

    my $version = "6.0";    
    my $file_loc = "data.xml";
    my $twig = XML::Twig->new( pretty_print => 'indented_a' )->parsefile( $file_loc );

for my $number ( $twig->findnodes('/Install/version/number') ) {
  $number->parent->last_child->insert(
              patch => {  version =>'patch' },
              patchversion => {  version =>'patchv' },
        ) if $number->trimmed_text eq $version;
}

但我得到的输出不是我想要的。输出是:-

<Install>
  <version>
    <number>6.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>
      <patch version="patch">
    <patchversion version="patchv">kind</patchversion>
      </patch>
    </kind>
  </version>
     <version >
    <number>7.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>kind</kind>
    </version>
    </Install>

我已经用其他方法尝试了这个，也使用如下粘贴:-

    my $version = "6.0";    
    my $file_loc = "data.xml";


        my $myXML = <<"XML";
<patch>
<build></build>
<version></version>
</patch>
XML
my $t = XML::Twig->new(
  twig_handlers => {
    Install => sub { add_version( $myXML, @_ ); }, }
  )->parsefile( $file_loc ) or die $!;

$t->set_pretty_print('indented_c');
open my $xml_fh, '>', "$file_loc" or die $!;
$t->print($xml_fh);
sub add_version {
    my ( $xml, $t, $install ) = @_;
    my $new_elt = XML::Twig::Elt->parse($xml);
    for my $number ( $t->findnodes('/Install/version/number') ) {
    if($number->trimmed_text eq $version )
    {
    $new_elt->paste(  $number->parent->last_child->paste => $install );
    }
    }
}

这里出现以下错误

cannot paste an element that belongs to a tree at

我可以仅使用插入来实现此目的还是必须使用粘贴？？ 在这两种情况下该怎么做？？

Answer 1

您的第一次尝试就在正确的轨道上，但您需要使用 insert_new_element . insert 替换元素的内容，并将使用您选择的语法创建属性。

您可以将所有内容放在一个非常简单的 twig_handler 中.捕获所有 <version>元素，检查它们的 <number>的文本节点，然后为 patch 和 patchv 值添加一个带有文本节点的新元素。

last_child => '' part 将新元素放在父元素的末尾。是the $optional_position that is documented with paste .

use strict;
use warnings;
use XML::Twig;

my $twig = XML::Twig->new(
    pretty_print  => 'indented_a',
    twig_handlers => {
        'version' => sub {
            if ( $_->first_child('number')->text() eq '6.0' ) {
                $_->insert_new_elt( last_child => 'patch' )->set_text('patch');
                $_->insert_new_elt( last_child => 'patchv' )->set_text('patchv');
            }
        }
    }
)->parse( \*DATA );

$twig->print;

输出:

<Install>
  <version>
    <number>6.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>kind</kind>
    <patch>patch</patch>
    <patchv>patchv</patchv>
  </version>
  <version>
    <number>7.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>kind</kind>
  </version>
</Install>

---

您的第二次尝试失败至少有两个原因:

# this elem get's pasted (1)
# |               on this positon (2)                            
# |               |                                     in that elem (3)
$new_elt->paste(  $number->parent->last_child->paste => $install );

在(2)中它应该有位置，这是一个字符串。类似于 first_child , last_child等等。 They are listed in the docs of paste .

因此它将计算 $number->parent->last_child->paste 的返回值并将其用作位置字符串。但是没有这样的返回值，所以那是行不通的。

但它并没有走到那一步。错误消息 cannot paste an element that belongs to a tree 来自 paste你有 (2)，因为你正在调用 paste()在 $number->parent->last_child那已经在树上了。那是不允许的。如果您删除该部分，代码将编译。

if ( $number->trimmed_text eq $version ) {
  $new_elt->paste( $install );
}

输出是(截断的):

<Install>
  <patch>
    <build></build>
    <version></version>
  </patch>
  <version>
    <number>6.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>kind</kind>
  </version>

这仍然不是我们想要的，因为 <patch>最终进入了<Install> , 不在里面 <version> .但是我们已经有了 $number从循环。那就是<number> <version> 内的节点节点，所以我们可以获得它的父节点并在我们的 (3) 中使用它。

$new_elt->paste( $number->parent );

现在我们明白了:

<Install>
  <version>
    <patch>
      <build></build>
      <version></version>
    </patch>
    <number>6.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>kind</kind>
  </version>

这样更好。它有点在正确的地方。如果添加位置last_child它在最后结束。

$new_elt->paste( last_child => $number->parent );

现在它在这里:

<Install>
  <version>
    <number>6.0</number>
    <build>1037124</build>
    <path>path</path>
    <kind>kind</kind>
    <patch>
      <build></build>
      <version></version>
    </patch>
  </version>

现在我们粘贴的是错误的东西，因为我们想要两个元素 <patch>和 <patchv> , 都带有文字。那是因为你在 $myXML 中有那些.

那里不能有两个顶级元素。这是无效的 XML 语法。

my $myXML = <<"XML";
<patch>patch</patch>
<patchv>patchv</patchv>
XML

在第 2 行、第 0 列、第 21 字节处的文档元素之后，将失败并出现垃圾。所以你必须有两个变量并调用 paste两次，或者将它们包装起来并获取新根元素的子节点。

但这当然非常复杂。上面的第一种方法更简洁。