XML Parser question

Hello ,

I am trying to parse a valid xml document using XML::RAI and see that it can identify limited number of fields that i can retrieve. How can i retrieve author or description or replycount fields from the XML document given below.

#!/usr/bin/perl

use XML::RAI;
my $xml=`curl -ksS "https://forums.com/rss.php?forumID=143"`;
$xml =~ s/\15//g;
my $feed = XML::RAI->parse($xml);

for ( reverse (@{$feed->items}) ){
    my $title=$_->title;
    my $date =$_->created ;
    my $date_modified;
    my $url =$_->link ;
    }

[download]

XML Format:

<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:jf="http://forums.com/rss">
<channel>
<item>
        <title>xxxxxxxxxxxxxxxxx</title>
        <link>https://forums.com/thread.php</link>
        <description>yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy</description>
        <pubDate>Wed, 19 Sep 2012 20:57:16</pubDate>
        <jf:creationDate>Wed, 19 Sep 2012 20:57:16 </jf:creationDate>
        <jf:modificationDate>Wed, 19Sep2012 20:57:16 </jf:modification
+Date>
        <jf:date>Sep 19, 2012</jf:date>
        <jf:author>author1</jf:author>
        <jf:replyCount>3</jf:replyCount>
    </item>
    </channel>
</rss>
[download]

Comment on XML Parser question Select or Download Code
Re: XML Parser question by tobyink (Prior) on Sep 20, 2012 at 11:22 UTC
It's a hack, but it looks like you should be able to "teach" XML::RAI::Item about new fields like this: `$XML::RAI::Item::XMap->{my_author} = [qw( jf:author )];` [download] ... and then just use `$_->my_author`. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l] [select]
Re: XML Parser question by shmem (Canon) on Sep 20, 2012 at 15:17 UTC
How can i retrieve author or description or replycount fields from the XML document given below. Strip the bogus namepsace identifier jf. Where did you get that from? certainly not from forums.com. `$xml =~ s/jf://g;` [download] Add the attributes you want according to the docs: `XML::RAI::Item->add_mapping($_,$_) for qw(modificationDate author replyCount);` [download] There might be a way to register xmlns:jf within the XML modules suite you are using. Reading the docs might help...	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks

XML Parser question

The best material for plates (tableware) is: