xml - 如何比较perl中不同元素的XML arrtibute值

Question

我正在编写脚本来比较<book>两个不同文件中元素的属性值，并且需要找到属性值的任何差异。XML代码如下所示。需要比较的属性是 book 元素中的“修订”：

<book fpi="9780133125900" status="PearsonML 9.8" revision="3">
<book fpi="9780133125900" status="PearsonML 9.8" revision="2">

任何人都可以检查并建议我在 Perl 脚本中完成它。我提取了值但无法比较。

##for extracting 'revision' vaue in file1
my $xp = XML::XPath->new(filename => $find);
my $hname = $xp->find('/book/@revision');
##for extracting 'revision' vaue in file2
my $xx = XML::XPath->new(filename => $find1);
my  $hnaee = $xx->find('/book/@revision');

最好的问候， 布瓦纳

Answer 1

一种方法是使用to_literal()函数从节点集中提取数字。它返回对标量的引用，因此在比较中取消引用它：

#!/usr/bin/env perl

use warnings;
use strict;
use XML::XPath;

#for extracting 'revision' vaue in file1
my $xp = XML::XPath->new(filename => $find);
my $hname = $xp->find('/book/@revision')->to_literal;
##for extracting 'revision' vaue in file2
my $xx = XML::XPath->new(filename => $find1);
my  $hnaee = $xx->find('/book/@revision')->to_literal;

if ( $$hname == $$hnaee ) { 
    print "Equal\n";
}
else {
    print "Not equal";
}