Re^3: extact nested values


Just another Perl shrine
	PerlMonks

Re^3: extact nested values

by McA (Priest)

on Mar 04, 2013 at 18:19 UTC ( [id://1021690]=note: print w/replies, xml )

Need Help??

in reply to Re^2: extact nested values
in thread extact nested values

Do you know how to iterate over a perl list?

As the dumper output shows: The output of $VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'} is a list ref.

So the following

my $list_ref = $VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]-
+>{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'};
foreach my $elem (@$list_ref) {
    print "Element by element", Dumper($elem), "\n";
}
[download]

iterates over the list and you get every element which is by the way also a nested object. But with my solution shown it should be worth of a little transfer to address the child elements in every $elem. If this is not true then you have to learn some basics.

Best regards
McA