Perl 的 XML::SemanticDiff - 存在差异时获取属性值答案

【问题标题】：Perl's XML::SemanticDiff - Getting the attribute value when there is a differencePerl 的 XML::SemanticDiff - 存在差异时获取属性值
【发布时间】：2014-08-08 15:21:59
【问题描述】：

提前为这个问题道歉，我是 Perl 的新手。

我正在使用 XML::SemanticDiff 比较两个 XML 文件，并实现了我自己的自定义处理程序。在大多数情况下它可以工作，但是当我比较两个 XML 元素时，看起来像：

<tag attribute="value">

和

<tag attribute="  value  ">

我不想将其视为差异。 XML::SemanticDiff 调用 element_value 方法。如何获取新旧属性值的值，以便我可以修剪空白并比较它们？文档提到这可以通过 keepdata 参数（我已经添加）来完成，但是对于 Perl 来说，我不明白如何在 element_value 方法中实际获取数据。

提前致谢，托马斯

【问题讨论】：

我不确定我是否正确理解了您的问题，并且我不知道 XML::SemanticDiff 但在方法内部，您可以访问通过 @_ 数组传递给其调用的所有参数将按顺序包含所有这些参数。见（除其他外）stackoverflow.com/questions/15109917/…

标签： xml perl whitespace

【解决方案1】：

如果您希望在 XML 属性中忽略封闭间距，我建议您在尝试比较文档之前将其删除。

以下使用XML::LibXML 删除嵌入 XML 文档的间距，但您也可以将其调整为 XML 文件。

use strict;
use warnings;

use XML::LibXML;

my $dom = XML::LibXML->load_xml(IO => \*DATA);

for my $attr ($dom->findnodes('//@*')) {
    my $string = $attr->getValue();
    if ($string =~ s/\A\s+|\s+\z//g) {
        $attr->setValue($string);
    }
}

print $dom->toString();

__DATA__
<root>
<tag attribute="  value  "/>
</root>

输出：

<?xml version="1.0"?>
<root>
<tag attribute="value"/>
</root>

【讨论】：