Hi,

If somebody can assist me with my query it would be much appreciated.

I'm basically retrieving an XML file from Digg. I can retrieve the
Digg data okay, but am struggling with trying to process the returned
data with Perl, largely on account with my unfamiliarity with XML
processing, but also because I'm not entirely confident with handling
arrays like this. Here's a stripped down version of the main bit of
code:

my $xml = new XML::Simple;
my $data = $xml->XMLin("$diggdata",ForceArray=>1);

foreach my $record ( [at] {$data->{stories}->[0]->{story}})
{
print $record->{title}->[0]->{content};
print $record->{description}->[0]->{content};
# etc, etc, etc
}


The top bit of the XML file looks like this:

<?xml version="1.0" encoding="UTF-8" ?>
- <stories count="10" offset="0" timestamp="1280259772" total="137"
version="1.0">
- <story link="http://www....net/..." submit_date="1280235019"
diggs="1" id="22914259">
<description>Description of story ...</description>
<title>Story title in here</title>
<user icon="/users/eprnetwork/l.png" profileviews="12780"
registered="1170875777" />
<topic name="World News" short_name="world_news" />
<container name="World & Business" short_name="world_business" />
<shorturl short_url="http://digg.com/d31Y92p" view_count="0" />
</story>
- <story link="http://www..." submit_date="1252351084" diggs="2"
id="15603146">
<description>Story 2 description</description>
etc, etc


My issue is that I simply cannot seem to access the data in my loop,
which it does once and then exits (when it should be doing it for each
story). I also tried with ForceArray=0, but same issue. However, the
data in $diggdata is definitely there.

Additionally, I really need to know how to access the attributes of
the XML as well; for example, how to get the "link" attribute, or the
"id" attribute of the <story> tags.

Any help would be much appreciated.

Thanks.


--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/

On 28 July 2010 01:31, Jane D. <janedunnie [at] gmail.com> wrote:
>
> I'm basically retrieving an XML file from Digg. I can retrieve the
> Digg data okay, but am struggling with trying to process the returned
> data with Perl, largely on account with my unfamiliarity with XML
> processing, but also because I'm not entirely confident with handling
> arrays like this. Here's a stripped down version of the main bit of
> code:
>
> foreach my $record ( [at] {$data->{stories}->[0]->{story}})

It's BC (Before Coffee) answer, but you're referring here to element 0
in "stories", which means you'll only get the first item in the
stories array.
I suggest dumping $data by adding 'use Data:Dumper; print
Dumper($data);' once you parse the XML and seeing what the structure
looks like, then follow it with your loop.

Now, the actual XML looks like an RSS feed, which begs the suggestion
to use an RSS parser module. Try XML::RSS
(http://search.cpan.org/~shlomif/XML-RSS-1.48/lib/XML/RSS.pm ) or one
of its kind. It will give you simpler, documented access to all the
different attributes and elements of the XML

> The top bit of the XML file looks like this:
>
> =A0<?xml version=3D"1.0" encoding=3D"UTF-8" ?>
> - <stories count=3D"10" offset=3D"0" timestamp=3D"1280259772" total=3D"13=
7"
> version=3D"1.0">
> - <story link=3D"http://www....net/..." submit_date=3D"1280235019"
> diggs=3D"1" id=3D"22914259">
> =A0<description>Description of story ...</description>
> =A0<title>Story title in here</title>
> =A0<user icon=3D"/users/eprnetwork/l.png" profileviews=3D"12780"
> registered=3D"1170875777" />
> =A0<topic name=3D"World News" short_name=3D"world_news" />
> =A0<container name=3D"World & Business" short_name=3D"world_business" />
> =A0<shorturl short_url=3D"http://digg.com/d31Y92p" view_count=3D"0" />
> =A0</story>
> - <story link=3D"http://www..." submit_date=3D"1252351084" diggs=3D"2"
> id=3D"15603146">
> =A0<description>Story 2 description</description>
> etc, etc
>
>
> My issue is that I simply cannot seem to access the data in my loop,
> which it does once and then exits (when it should be doing it for each
> story). I also tried with ForceArray=3D0, but same issue. However, the
> data in $diggdata is definitely there.
>
> Additionally, I really need to know how to access the attributes of
> the XML as well; for example, how to get the "link" attribute, or the
> "id" attribute of the <story> tags.
>
> Any help would be much appreciated.
>
> Thanks.
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
> For additional commands, e-mail: beginners-help [at] perl.org
> http://learn.perl.org/
>
>
>



--
Erez

Observations, not opinions

--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/

Thanks Erez ... However, I did already look at the data in
Data:Dumper, and still can't figure out how to access it. Mind you, I
have done an identical loop for other XML data, from other sources,
and it works fine (even with the element set to 0, which I don't quite
get). Mind you, if it's of any use, here is the top portion of the
data dump (content edited for brevity):


$VAR1 = {
'count' => '10',
'story' => {
'16647039' => {
'link' => 'http://www...somelink.html',
'topic' => {
'Health' => {
'short_name' =>
'health'
}
},
'status' => 'upcoming',
'submit_date' => '1256158570',
'container' => {
'Lifestyle' => {

'short_name' => 'lifestyle'
}
},
'comments' => '0',
'description' => [
'Some description in
here'
],
'diggs' => '1',
'media' => 'news',
'href' => 'http://digg.com/restofurl',
'user' => {
'socialshopping2' => {
'icon'
=> '',

'registered' => '1255514015',

'profileviews' => '105'
}
},
'shorturl' => [
{
'view_count' => '0',
'short_url' => 'http://
digg.com/restofurl'
}
],
'title' => [
'Some title of some
article'
]
},
'22914259' => {
'link' => 'http://www...next-
link.html',
'topic' => {
'World News' => {

'short_name' => 'world_news'
}
},
etc,
etc


Any help would be most appreciated.


--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/

Rmlyc3QsIEkgdXJnZSB5b3UgdG8gdHJ5IHBhcnNpbmcgdGhpcyBkb2Mgd2l0 aCBhIGRlZGljYXRl
ZCBSU1MgcGFyc2VyLAppdCB3aWxsIGRvIG1pcmFjbGVzIGZvciB5b3VyIG5l ZWRzLiBTZWNvbmQs
IHRoZSBkdW1wZXIgeW91IHByaW50IGhlcmUKaXMgbm90IHRoZSBmdWxsIGRv Y3VtZW50LCBidXQg
b25lIGJyYW5jaCwgaXQgbWlnaHQgYmUgdGhhdCB3aGF0IHlvdQpsb29wIG92 ZXIgaXMgbm90IGFu
IGFycmF5cmVmLCBvciBtaWdodCBub3Qgd29yayB0aGUgd2F5IHlvdSB0aGlu ay4gVHJ5CnJ1bm5p
bmcgYSBEdW1wZXIgb3ZlciB0aGUgZW50aXJlIGRvYy4KCkFzaWRlLCBkbyB5 b3UgZ2V0IGFueSB3
YXJuaW5ncyBmcm9tIHlvdXIgY29kZT8gSXQgbWlnaHQgc2hlZCBhIGxpZ2h0 Cm92ZXIgd2hhdCBw
ZXJsIHRoaW5rcyB0aGUgZGF0YSBzdHJ1Y3R1cmUgaXMuCgpPbiAyOCBKdWx5 IDIwMTAgMTU6NTks
IEphc3BlcjIwMDAgPGhlbGl1c0BnbWFpbC5jb20+IHdyb3RlOgo+IFRoYW5r cyBFcmV6IC4uLiBI
b3dldmVyLCBJIGRpZCBhbHJlYWR5IGxvb2sgYXQgdGhlIGRhdGEgaW4KPiBE YXRhOkR1bXBlciwg
YW5kIHN0aWxsIGNhbid0IGZpZ3VyZSBvdXQgaG93IHRvIGFjY2VzcyBpdC4g TWluZCB5b3UsIEkK
PiBoYXZlIGRvbmUgYW4gaWRlbnRpY2FsIGxvb3AgZm9yIG90aGVyIFhNTCBk YXRhLCBmcm9tIG90
aGVyIHNvdXJjZXMsCj4gYW5kIGl0IHdvcmtzIGZpbmUgKGV2ZW4gd2l0aCB0 aGUgZWxlbWVudCBz
ZXQgdG8gMCwgd2hpY2ggSSBkb24ndCBxdWl0ZQo+IGdldCkuIE1pbmQgeW91 LCBpZiBpdCdzIG9m
IGFueSB1c2UsIGhlcmUgaXMgdGhlIHRvcCBwb3J0aW9uIG9mIHRoZQo+IGRh dGEgZHVtcCAoY29u
dGVudCBlZGl0ZWQgZm9yIGJyZXZpdHkpOgo+Cj4KPiAkVkFSMSA9IHsKPiCg J2NvdW50JyA9PiAn
MTAnLAo+IKAnc3RvcnknID0+IHsKPiCgIKAgoCCgIKAgoCCgJzE2NjQ3MDM5 JyA9PiB7Cj4goCCg
IKAgoCCgIKAgoCCgIKAgoCAnbGluaycgPT4gJ2h0dHA6Ly93d3cuLi5zb21l bGluay5odG1sJywK
PiCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCAndG9waWMnID0+IHsK PiCgIKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCdIZWFsdGgnID0+IHsK PiCgIKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCdz aG9ydF9uYW1lJyA9
Pgo+ICdoZWFsdGgnCj4goCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAgoCCgIKB9Cj4goCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAg oCCgIKAgoCCgIKB9
LAo+IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAnc3RhdHVzJyA9 PiAndXBjb21pbmcn
LAo+IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAnc3VibWl0X2Rh dGUnID0+ICcxMjU2
MTU4NTcwJywKPiCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgJ2Nv bnRhaW5lcicgPT4g
ewo+IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCAnTGlmZXN0
eWxlJyA9PiB7Cj4KPiAnc2hvcnRfbmFtZScgPT4gJ2xpZmVzdHlsZScKPiCg IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAg oCCgfQo+IKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCB9LAo+ IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAnY29tbWVudHMnID0+ICcwJywKPiCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCCgJ2Rlc2NyaXB0aW9uJyA9PiBbCj4goCCgIKAgoCCg IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgJ1NvbWUgZGVzY3JpcHRpb24g aW4KPiBoZXJlJwo+
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAg oCCgIF0sCj4goCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCdkaWdncycgPT4gJzEnLAo+ IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAnbWVkaWEnID0+ICduZXdzJywKPiCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCCgJ2hyZWYnID0+ICdodHRwOi8vZGlnZy5jb20vcmVz dG9mdXJsJywKPiCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgJ3VzZXInID0+IHsKPiCg IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCdzb2NpYWxzaG9wcGluZzIn ID0+IHsKPiCgIKAg
oCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCCg
ICdpY29uJwo+ID0+ICcnLAo+Cj4gJ3JlZ2lzdGVyZWQnID0+ICcxMjU1NTE0 MDE1JywKPgo+ICdw
cm9maWxldmlld3MnID0+ICcxMDUnCj4goCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCB9Cj4goCCgIKAgoCCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCCgIKB9LAo+IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAnc2hv
cnR1cmwnID0+IFsKPiCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCCg
IKB7Cj4goCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgJ3ZpZXdf
Y291bnQnID0+ICcwJywKPiCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAnc2hvcnRfdXJsJyA9PiAnaHR0cDovLwo+IGRpZ2cuY29tL3Jlc3Rv ZnVybCcKPiCgIKAg
oCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgfQo+ IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoF0sCj4goCCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCd0aXRsZScgPT4gWwo+IKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCdTb21lIHRpdGxlIG9mIHNvbWUKPiBhcnRpY2xl Jwo+IKAgoCCgIKAg
oCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIF0KPiCgIKAgoCCg IKAgoCCgIKAgoCCg
IKAgoCCgIKAgoCCgIH0sCj4goCCgIKAgoCCgIKAgoCCgIKAgoCAnMjI5MTQy NTknID0+IHsKPiCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgJ2xpbmsnID0+ICdo dHRwOi8vd3d3Li4u
bmV4dC0KPiBsaW5rLmh0bWwnLAo+IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCAn
dG9waWMnID0+IHsKPiCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCCg
IKAnV29ybGQgTmV3cycgPT4gewo+Cj4gJ3Nob3J0X25hbWUnID0+ICd3b3Js ZF9uZXdzJwo+IKAg
oCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKAgoCCgIKAgoCCg
fQo+IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCg IKB9LAo+IKAgoCCg
IKAgoCCgIKAgoCCgIKAgoCCgIKAgoCCgIKBldGMsCj4goCCgIKAgoCCgIKAg oCCgIKAgoCCgIKAg
oCCgIKAgoGV0Ywo+Cj4KPiBBbnkgaGVscCB3b3VsZCBiZSBtb3N0IGFwcHJl Y2lhdGVkLgo+Cj4K
PiAtLQo+IFRvIHVuc3Vic2NyaWJlLCBlLW1haWw6IGJlZ2lubmVycy11bnN1 YnNjcmliZUBwZXJs
Lm9yZwo+IEZvciBhZGRpdGlvbmFsIGNvbW1hbmRzLCBlLW1haWw6IGJlZ2lu bmVycy1oZWxwQHBl
cmwub3JnCj4gaHR0cDovL2xlYXJuLnBlcmwub3JnLwo+Cj4KPgoKCgotLSAK RXJlegoKT2JzZXJ2
YXRpb25zLCBub3Qgb3BpbmlvbnMK

On Tue, Jul 27, 2010 at 6:31 PM, Jane D. <janedunnie [at] gmail.com> wrote:
> The top bit of the XML file looks like this:

It would be easier for me to make suggestions if you'd post an entire
sample XML document or, better yet, a URL where I could retreive one
so that I could test my code before suggesting it to you. :)

--
Brandon McCaig <bamccaig [at] gmail.com>
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software <http://www.castopulence.org/> <bamccaig [at] castopulence.org>

--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/

Actually, I have now figured it out, and it all makes sense!

Thanks for your help.


--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/

Brandon / Erez,

Thanks very much for your help. Not sure why, but I did post another
message, to say that I'd managed to figure it out, yet the message
didn't show up.

However, I really do appreciate your comments and willingness to help
me. Thanks!!



On Jul 28, 6:10 pm, bamcc... [at] gmail.com (Brandon McCaig) wrote:
> On Tue, Jul 27, 2010 at 6:31 PM, Jane D. <janedun... [at] gmail.com> wrote:
> > The top bit of the XML file looks like this:
>
> It would be easier for me to make suggestions if you'd post an entire
> sample XML document or, better yet, a URL where I could retreive one
> so that I could test my code before suggesting it to you. :)
>
> --
> Brandon McCaig <bamcc... [at] gmail.com>
> V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
> Castopulence Software <http://www.castopulence.org/> <bamcc... [at] castopulence.org>


--
To unsubscribe, e-mail: beginners-unsubscribe [at] perl.org
For additional commands, e-mail: beginners-help [at] perl.org
http://learn.perl.org/