Perl XML::Twig 问题请教

Question

我正在使用 Perl 中的 XML::Twig 库，但我不太确定如何（或者甚至是否）可以执行以下操作。我还没有完成代码，因为我什至不知道从哪里开始。我真的在寻找一些想法，我可以（希望）从那里开始......

所以我想使用 XML::Twig 来查找值“This_Is_My_Name”，它是标签“MyClass.Name”的子值。我认为我可以完成这部分，但希望得到指导。

然后我想获取“MyClass.Code”LinkValue 编号，在下面的示例中为“987654321”。

希望这是有道理的。所以我不知道如何以这种方式移动。

请帮忙:)

所以我的 XML 文档如下，

<Object Class="MyClass" Id="123456789">
    <Property Name="MyClass.Link">
        <LinkValue>
            <Id>2468</Id>
        </LinkValue>
    </Property>
    <Property Name="MyClass.Code">
        <LinkValue>
            <Id>987654321</Id>
        </LinkValue>
    </Property>
    <Property Name="MyClass.Name">
        <StringValue>This_Is_My_Name</StringValue>
    </Property>
</Object>

Answer 1

您可以使用 xpath 来提取这些值。 This_Is_My_Name 的 xpath 是 /Object/Property[@Name="MyClass.Name"]/StringValue，LinkValue 的 xpath 是 /Object/Property[@Name="MyClass.Code"]/LinkValue/Id。代码是：

use XML::Twig;

my $twig = XML::Twig->new();

# parse the file
$twig->parsefile("x.xml");

# look for StringValue
@nodes=$twig->findnodes('/Object/Property[@Name="MyClass.Name"]/StringValue');
$stringVal=pop(@nodes)->text();
print $stringVal."\n";

# look for LinkValue
@nodes=$twig->findnodes('/Object/Property[@Name="MyClass.Code"]/LinkValue/Id');
$linkVal=pop(@nodes)->text();
print $linkVal;

Answer 2

在这种情况下，我通常使用树遍历方法，而不是使用 XPath。这里用 first_elt 来查找属性，然后用 field （相当于 first_child()->text）来获取链接值。

#!/usr/bin/perl

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

my $twig = XML::Twig->new();

# parse the file
$twig->parsefile("so.xml");

# look for StringValue
my $property= $twig->first_elt( 'Property[@Name="MyClass.Code"]');
my $link= $property->field( 'LinkValue');
print $link;