Re^2: extact nested values

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

Comment on Re^2: extact nested values Download Code

Replies are listed 'Best First'.
Re^3: extact nested values by McA (Priest) on Mar 04, 2013 at 18:19 UTC
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]

Replies are listed 'Best First'.

Re^3: extact nested values
by McA (Priest) on Mar 04, 2013 at 18:19 UTC

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]

$elem

Best regards
McA

[reply]
[d/l]
[select]