如何在 Perl libXML::Reader 中读取节点的值

发布于 2024-12-09 10:43:45 字数 431 浏览 2 评论 0原文

我的 XML 看起来像这样 -

<info>
<name>NameGoesHere</name>
<age>99</age>
</info>

使用 XML::LibXML::Reader，我想打印年龄。

我从此处阅读了文档，并且我我正在寻找一个例子。我可以使用 $reader->nextElement('info') 然后打印 innerXML 但无法弄清楚如何仅打印年龄而不是整个年龄innerxml。

原文

My XML looks like this-

<info>
<name>NameGoesHere</name>
<age>99</age>
</info>

Using XML::LibXML::Reader, I would like to print the age.

I read the documentation from here, and I am looking for an example. I am able to use $reader->nextElement('info') and then print innerXML but not able to figure out how do I print only age and not the whole innerxml.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

走走停停 2024-12-16 10:43:45

尝试 localName：

#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML::Reader;

my $reader = XML::LibXML::Reader->new(IO => \*DATA)
    or die "Cannot read from \\*DATA\n";

while ( $reader->read ) {
    print $reader->readInnerXml if $reader->localName eq 'age';
}

$reader->finish;

__DATA__
<info>
<name>NameGoesHere</name>
<age>99</age>
</info>

主要来自正则表达式：把一切都放在<专业>上标签

Try localName:

#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML::Reader;

my $reader = XML::LibXML::Reader->new(IO => \*DATA)
    or die "Cannot read from \\*DATA\n";

while ( $reader->read ) {
    print $reader->readInnerXml if $reader->localName eq 'age';
}

$reader->finish;

__DATA__
<info>
<name>NameGoesHere</name>
<age>99</age>
</info>

Mostly from Regex: keep everything in <profession></profession> tags

回复收藏 0 原文

明明#如月 2024-12-16 10:43:45

use strict;
use warnings;
use feature qw( say );

use XML::LibXML::Reader qw(
   XML_READER_TYPE_ELEMENT
   XML_READER_TYPE_END_ELEMENT
   XML_READER_TYPE_TEXT
);

my $reader = XML::LibXML::Reader->new(IO => \*DATA);

my $in_age = 0;
my $age;
while ($reader->read()) {
   if ($reader->nodeType() == XML_READER_TYPE_ELEMENT && $reader->name() eq 'age') {
      $age = '' if !$in_age;
      ++$in_age;
   }
   elsif ($reader->nodeType() == XML_READER_TYPE_END_ELEMENT && $reader->name() eq 'age') {
      --$in_age;
      say $age if !$in_age;
   }
   elsif ($in_age && $reader->nodeType() == XML_READER_TYPE_TEXT) {
      $age .= $reader->value();
   }
}

__DATA__
<info>
<name>NameGoesHere</name>
<age>99</age>
</info>

use strict;
use warnings;
use feature qw( say );

use XML::LibXML::Reader qw(
   XML_READER_TYPE_ELEMENT
   XML_READER_TYPE_END_ELEMENT
   XML_READER_TYPE_TEXT
);

my $reader = XML::LibXML::Reader->new(IO => \*DATA);

my $in_age = 0;
my $age;
while ($reader->read()) {
   if ($reader->nodeType() == XML_READER_TYPE_ELEMENT && $reader->name() eq 'age') {
      $age = '' if !$in_age;
      ++$in_age;
   }
   elsif ($reader->nodeType() == XML_READER_TYPE_END_ELEMENT && $reader->name() eq 'age') {
      --$in_age;
      say $age if !$in_age;
   }
   elsif ($in_age && $reader->nodeType() == XML_READER_TYPE_TEXT) {
      $age .= $reader->value();
   }
}

__DATA__
<info>
<name>NameGoesHere</name>
<age>99</age>
</info>

回复收藏 0 原文

~没有更多了~