我有一个类似于 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 ;
}
正确的做法是什么？
最佳答案
您忘记了 pre 根元素。
改变
/PubmedArticle/MedlineCitation/Article/Journal/JournalIssue/PubDate
至
/pre/PubmedArticle/MedlineCitation/Article/Journal/JournalIssue/PubDate
关于xml - 如何在 Perl 中使用 XML::LibXML 访问节点，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/17694125/