rajivreddy has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: extact nested values
by blue_cowdawg (Monsignor) on Mar 04, 2013 at 16:59 UTC
        I tried a couple of ways but doesn't seem to work please help

    Show us one of those ways...

    Peter L. Berghold -- Unix Professional
    Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg
[reply]
Re: extact nested values
by McA (Priest) on Mar 04, 2013 at 17:24 UTC

    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

[reply]
[d/l]
      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]
Re: extact nested values
by Anonymous Monk on Mar 04, 2013 at 22:51 UTC
[reply]

Back to Seekers of Perl Wisdom