in reply to extact nested values

Hi,

to be honest: I don't see the problem: 

print $VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightC
+oloumn'}->[0]->{'Tabs'}->[0]->{'TabName'}->[0], "\n";
print $VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightC
+oloumn'}->[0]->{'Tabs'}->[1]->{'TabName'}->[0], "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{
+'RightColoumn'}->[0]->{'Tabs'}->[0]->{'Links'}), "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{
+'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'}), "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]->{
+'RightColoumn'}->[0]->{'Tabs'}->[0]->{'Links'}), "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]->{
+'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'}), "\n";

[download]

Have I missed something with the problem description?

Best regards
McA

Replies are listed 'Best First'.
Re^2: extact nested values
by rajivreddy (Initiate) on Mar 04, 2013 at 17:55 UTC
    Hi MCA thanks for the reply but my problem is to print the values of the child elements of the link nodes iteratively and 
    print $VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightC
+oloumn'}->[0]->{'Tabs'}->[0]->{'TabName'}->[0], "\n";

    [download]
    isn't printing anything
[reply]
[d/l]

      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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom