Accessing data in references?

[mangoo]

Let's say we have the following code:
[code=perl]
my $VAR1 = {
'target' => {
'oranges' => {
'size' => 'big'
},
'apples' => {
'size' => 'small'
}
}
}

print $VAR1;
[/code]


Now, to get the size of apples, we would use:
[code=perl]
print $VAR1->{'target'}->{'oranges'}->{'size'};
[/code]

But to do this, I have to know that there are oranges stored there, and that their size is defined.

How can I iterate all elements that are stored? I would like to display:

oranges, size: big
apples, colour: red

[KevinADC]

Let's say we have the following code:
[code=perl]
my $VAR1 = {
'target' => {
'oranges' => {
'size' => 'big'
},
'apples' => {
'size' => 'small'
}
}
}

print $VAR1;
[/code]


Now, to get the size of apples, we would use:
[code=perl]
print $VAR1->{'target'}->{'oranges'}->{'size'};
[/code]

But to do this, I have to know that there are oranges stored there, and that their size is defined.

How can I iterate all elements that are stored? I would like to display:

oranges, size: big
apples, colour: red

loops and references:

[code=perl]
my $VAR1 = {
'target' => {
'oranges' => {
'size' => 'big'
},
'apples' => {
'size' => 'small'
}
}
};

foreach my $keys (keys %{$VAR1}) {
foreach my $sub_keys (keys %{$VAR1->{$keys}}) {
print "$sub_keys, ";
foreach my $sub_sub_keys (keys %{$VAR1->{$keys}->{$sub_keys}} ) {
print "$sub_sub_k eys: $VAR1->{$keys}->{$sub_keys}->{$sub_sub_keys }\n";
}
}
}
[/code]

See the reply on devshed where a member there took a lot of time and effort to reply to your question.

[numberwhun]

If I may add, take a look at this web site as it may help with issues like this in the future.

Regards,

Jeff