Perl 使用 XML 路径上下文提取数据

Question

我有以下 xml

<?xml version="1.0" encoding="utf-8"?>
<Response>
   <Function Name="GetSomethingById">
      <something idSome="1" Code="1" Description="TEST01" LEFT="0" RIGHT="750" />
   </Function>
</Response>

我想要 <something> 的属性节点作为哈希。我正在尝试如下

my $xpc = XML::LibXML::XPathContext->new(
    XML::LibXML->new()->parse_string($xml)   # $xml is containing the above xml
);
my @nodes = $xpc->findnodes('/Response/Function/something');

我希望有类似 $nodes[0]->getAttributes 的东西, 有帮助吗？

Answer 1

my %attributes = map { $_->name => $_->value } $node->attributes();