Hi,
Kcott's code works perfectly. Maybe, you are not saving the changes you made to your script. However, if the double for loop used confuses you, you can consider this:
use warnings;
use strict;
my $getToysResults = {
'Toys' => bless(
{
'Toy' => [
bless(
{
'ToyLocations' => bless(
{
'ToyLocation' => [
{
'toyQuantity' => '1',
'locationName' => 'toybox'
},
{
'toyQuantity' => '4',
'locationName' => 'shelf'
}
]
},
'ArrayOfToyLocation'
),
'color' => 'none',
'toyName' => 'Sorry',
'size' => 'medium'
},
'Board'
)
]
},
'ArrayOfToy'
)
};
foreach my $e ( @{ $getToysResults->{Toys}{Toy} } ) {
print join "\n" => map { $_->{locationName} }
@{ $e->{ToyLocations}{ToyLocation} };
}
If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|