如何在 Perl 中使用 XML::LibXML 访问节点答案

【问题标题】：How to access the nodes using XML::LibXML in Perl如何在 Perl 中使用 XML::LibXML 访问节点
【发布时间】：2013-07-15 16:07:25
【问题描述】：

我有一个类似于this 的 XML 数据：

我想做的只是简单地提取出版年份来自以下结构：

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<pre> 
    <PubmedArticle>
        <MedlineCitation Owner="NLM" Status="In-Data-Review">
            <PMID Version="1">23853691</PMID>
            <DateCreated>
                <Year>2013</Year>
                <Month>07</Month>
                <Day>15</Day>
            </DateCreated>
            <Article PubModel="Electronic-Print">
                <Journal>
                    <ISSN IssnType="Electronic">1932-6203</ISSN>
                    <JournalIssue CitedMedium="Internet">
                        <Volume>8</Volume>
                        <Issue>5</Issue>
                        <PubDate>
                            <Year>2013</Year>
                        </PubDate>
...
</pre>

但是为什么我的以下代码Perl无法访问“2013”年？

use strict;
use Data::Dumper;
use XML::LibXML 1.70;
my $parser = XML::LibXML->new();

my $xmlfilename = "myfile.xml"; 
# obtained from http://dpaste.com/1307466/plain/

my $doc = $parser->parse_file( $xmlfilename );

foreach my $art ( $doc->findnodes('/PubmedArticle/MedlineCitation/Article/Journal/JournalIssue/PubDate') ) {
        my ($year) = $art->findnodes('./Year');
        print Dumper $year->to_literal ;

 }

正确的做法是什么？

【问题讨论】：

标签： xml perl parsing cpan

【解决方案1】：

您忘记了pre 根元素。

改变

/PubmedArticle/MedlineCitation/Article/Journal/JournalIssue/PubDate

到

/pre/PubmedArticle/MedlineCitation/Article/Journal/JournalIssue/PubDate

【讨论】：