Perl: 无法使用 Twig::XPath 语法提取兄弟姐妹的值。

Question

最近我开始使用XML::Twig::XPath，但这个模块似乎不认识xpath语法。在下面的XML中，如果PlcAndNm节点的值是 "ext_1"，我想要 "Txt "节点的值。

<?xml version="1.0" encoding="UTF-8"?>
<root>
  <Document>
    <RedOrdrV03>
      <MsgId>
      <Id>1</Id>
      </MsgId>
      <Xtnsn>
        <PlcAndNm>ext_1</PlcAndNm>
        <Txt>1234</Txt>
      </Xtnsn>
      <Xtnsn>
        <PlcAndNm>ext_2</PlcAndNm>
        <Txt>ABC</Txt>
      </Xtnsn>
    </RedOrdrV03>
  </Document>
  <Document>
    <RedOrdrV03>
      <MsgId>
      <Id>2</Id>
      </MsgId>
      <Xtnsn>
        <PlcAndNm>ext_1</PlcAndNm>
        <Txt>9876</Txt>
      </Xtnsn>
      <Xtnsn>
        <PlcAndNm>ext_2</PlcAndNm>
        <Txt>DEF</Txt>
      </Xtnsn>
    </RedOrdrV03>
  </Document>
</root>

我已经试过了白色表情 /Xtnsn[PlcAndNm="ext_1"]Txt 但我收到了一个错误这就是代码。

use XML::Twig::XPath;
my $subelt_count = 1;
my @processed_elements;
my $xmlfile = 'c:/test_file.xml';
my $parser = XML::Twig->new(
 twig_roots    => { 'RedOrdrV03' => \&process_xml } ,
 end_tag_handlers => { 'Document' },
);

$parser->parsefile($xmlfile);

sub process_xml {
  my ( $twig, $elt ) = @_;
  push( @processed_elements, $elt );

  if ( @processed_elements >= $subelt_count ) {
    my $MsgId = $twig->findvalue('RedOrdrV03/MsgId/Id');
    my $Xtnsn_Txt1 = $twig->findvalue('//Xtnsn[PlcAndNm="ext_1"]/Txt');
    print "MsgId: $MsgId - Xtnsn_Txt1: $Xtnsn_Txt1\n";
  }
  $_->delete for @processed_elements;
  @processed_elements = ();
  $twig->purge;
}

有没有一种简单的方法可以用xpath来获取值？ 我知道有一种可能性是类似于... ..:

my $Xtnsn_Txt1 = $twig->first_elt( sub { $_[0]->tag eq 'PlcAndNm' && $_[0]->text eq 'ext_1' })->next_sibling()->text();

但我更喜欢使用最简单的XPath语法。

先谢谢你的帮助

Answer 1

你可以使用这个。

my $Xtnsn_Txt1 = $twig->findvalue('//Xtnsn/PlcAndNm[string()="ext_1"]/../Txt');

Answer 2

另一种方法可以是:

//Txt[preceding-sibling::PlcAndNm[.="ext_1"]]

你也可以稍微修改一下你的XPath表达式，看看它是否能和.NET一起工作。

//Xtnsn[./PlcAndNm[contains(.,"ext_1")]]/Txt

编辑：这与原来的XML::XPath模块工作良好。

use XML::XPath;
use XML::XPath::Node::Element;

my $xp = XML::XPath->new(filename => 'pathtoyour.xml');

my $nodeset = $xp->find('//Xtnsn[PlcAndNm="ext_1"]/Txt');

foreach my $node ($nodeset->get_nodelist) {
    print XML::XPath::Node::Element::string_value($node),"\n\n";
}

输出 : 1234 9876