in reply to facing problem in parsing xml
There are more problems, though:
After fixing the mentioned problems, there is a code that works for me:
#!/usr/bin/perl use warnings; use strict; use XML::LibXML; my $xml = q%<?xml version="1.0"?> <?xml-stylesheet type="text/xsl" href="/templates/xsl/abc/search/searc +hRetrieveResponse.xsl"?><searchRetrieveResponse xmlns="http://www.abc +/srw/"> <version>1.1</version> <numberOfRecords>14135</numberOfRecords> <records> <record> <recordSchema>info:srw/schema/1/dc-v1.1</recordSchema> <recordPacking>xml</recordPacking> <recordData> <srw_dc:dc xmlns:srw_dc="info:srw/schema/1/dc-v1.1" xmlns:dc="http://purl.org/dc/elements/1.1/"> <dc:identifier>ISSN: 00322032</dc:identifier> <dc:identifier>URL: http://www.jstor.org/stable/2306831 +5</dc:identifier> <dc:title>TEST</dc:title> <dc:creator>KAY RYAN</dc:creator> <dc:relation>Poetry, Vol. 176, No. 3</dc:relation> <dc:coverage>p. 126</dc:coverage> <dc:rights>Copyright 2000 Poetry Foundation</dc:rights> <dc:publisher>Poetry Foundation</dc:publisher> <dc:date>2000-06-01</dc:date> <dc:type>FLA</dc:type> <dc:language>eng</dc:language> </srw_dc:dc> </recordData> <recordPosition>1</recordPosition> </record> <record> <recordSchema>info:srw/schema/1/dc-v1.1</recordSchema> <recordPacking>xml</recordPacking> <recordData> <srw_dc:dc xmlns:srw_dc="info:srw/schema/1/dc-v1.1" xmlns:dc="http://purl.org/dc/elements/1.1/"> <dc:identifier>ISSN: 0010096X</dc:identifier> <dc:identifier>URL: http://www.jstor.org/stable/357303< +/dc:identifier> <dc:title>Test</dc:title> <dc:creator>Wm. Leonard</dc:creator> <dc:relation>College Composition and Communication, Vol +. 29, No. 2</dc:relation> <dc:coverage>p. 161</dc:coverage> <dc:rights>Copyright 1978 National Council of Teachers +of English</dc:rights> <dc:publisher>National Council of Teachers of English</ +dc:publisher> <dc:date>1978-05-01</dc:date> <dc:type>FLA</dc:type> <dc:language>eng</dc:language> </srw_dc:dc> </recordData> <recordPosition>2</recordPosition> </record> </records> </searchRetrieveResponse>%; my $data = 'XML::LibXML'->load_xml(string => $xml); my $xpc = 'XML::LibXML::XPathContext'->new($data); $xpc->registerNs('srw', 'http://www.abc/srw/'); $xpc->registerNs('dc', 'http://purl.org/dc/elements/1.1/'); my $recordData = $xpc->findnodes('//srw:records/srw:record/srw:recordD +ata', $data); foreach my $rec(@$recordData){ my $title = $xpc->findnodes('.//dc:title', $rec); print $title, "\n"; }
Update: Also note that $title->string_value is not needed if all you want to do with the title is to print it. Elements stringify to their string value.
|
|---|