如何替换XML::Simple 中的标签是否带有原始标签名称？

Question

我正在使用 XML::Simple 编辑 XML 文件。之后更新的数据将发送到新的 XML 文件。但是这个过程会产生要添加的 标签，并且原始父标签会丢失。我想用原始标签名称替换 。我该怎么做？

Answer 1

请参阅 KeepRoot。您还应该考虑启用严格模式。

#!/usr/bin/perl

use strict; use warnings;

use XML::Simple qw(:strict);
use Data::Dumper;

my $x = XMLin(\*DATA, KeepRoot => 1, ForceArray => 1, KeyAttr => ['the']);

print XMLout($x, KeepRoot => 1, KeyAttr => ['the']);

__DATA__
<this>
<that the="other">This that and the other</that>
</this>

输出：

<this>
  <that the="other">This that and the other</that>
</this>

Answer 2

您正在突破 XML::Simple 的限制。当你不喜欢它所做的事情时，就该做点别的事情了。其他内容取决于您的问题，但我喜欢 XML::Twig。

Answer 3

在新的xml文件中，您可以使用正则表达式来查找要删除的模式，然后替换为您想要的模式，即原始标签。

 @ar="xml file";
 $pat="tag you want to replace";
 $rep="original tag";


 foreach $a (@ar) {
   if ($a =~ s|$pat|$rep|gi;
   }

xml 文件处理程序名称=@arr;