Re^2: Parsing SOAP::Lite results

Replies are listed 'Best First'.
Re^3: Parsing SOAP::Lite results by kcott (Archbishop) on Sep 28, 2012 at 12:05 UTC
I tested that code before posting. I changed `$VAR1` to `my $getToysResults` but otherwise left the `Dumper` output unchanged. Here's the script (`pm_parse_soap_hash.pl`) in its entirety: #!/usr/bin/env perl use strict; use warnings; 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}}) { my $location_array_ref = $e->{ToyLocations}{ToyLocation}; for my $location_array_hash_ref (@$location_array_ref) { print $location_array_hash_ref->{locationName}, "\n"; } } [download] Here's the output: `$ pm_parse_soap_hash.pl toybox shelf` [download] Try running that script. If it works, then maybe the data you posted was incorrect (typo, cut-and-paste error, etc.) or perhaps you used my code differently. Try adding `print Dumper $getToysResults;` just before the outer `foreach` in your code and see if it produces the same output as you originally posted. If it doesn't work, please post full output along with your Perl version and OS: as it stands, I can't see anything there that wouldn't work on any version of Perl 5. -- Ken	[reply] [d/l] [select]
Re^4: Parsing SOAP::Lite results by Roboz (Novice) on Sep 28, 2012 at 12:52 UTC
I see what's causing my issue with the 'Not an ARRAY ref' error. When there is only one location it's not an array. $VAR1 = { 'Toys' => bless( { 'Toy' => [ bless( { 'ToyLocations' => bless( { 'ToyLocation' => { 'toyQuantity' => '2', 'locationName' => 'toy +box' } }, 'ArrayOfToyLocation' ), 'color' => 'brown', 'toyName' => 'bear', 'size' => 'large' }, 'Stuffed' ), bless( { 'ToyLocations' => bless( { 'ToyLocation' => [ { 'toyQuantity' => '1', 'locationName' => 'toy +box' }, { 'toyQuantity' => '4', 'locationName' => 'she +lf' } ] }, 'ArrayOfToyLocation' ), 'color' => 'none', 'toyName' => 'Sorry', 'size' => 'medium' }, 'Board' ) ] }, 'ArrayOfToy' ) }; [download] Still stuck on what to do in this case. Would this be where introspection comes in? `pseudo:(if HASH, then ... %$location) elsif ARRAY, then ... @$location) ?` Thanks to all who are helping me learn this!	[reply] [d/l] [select]
Re^5: Parsing SOAP::Lite results by kcott (Archbishop) on Sep 28, 2012 at 13:21 UTC
You can use ref to do that. Here's a modification of my earlier script to show this. For illustration purposes, I've made minor changes to the `locationName` values so you can see which `toybox` is being referred to. #!/usr/bin/env perl use strict; use warnings; my $getToysResults = { 'Toys' => bless( { 'Toy' => [ bless( { 'ToyLocations' => bless( { 'ToyLocation' => { 'toyQuantity' => '2', 'locationName' => 'HASH:toybox +' } }, 'ArrayOfToyLocation' ), 'color' => 'brown', 'toyName' => 'bear', 'size' => 'large' }, 'Stuffed' ), bless( { 'ToyLocations' => bless( { 'ToyLocation' => [ { 'toyQuantity' => '1', 'locationName' => 'ARRAY:toybo +x' }, { 'toyQuantity' => '4', 'locationName' => 'ARRAY:shelf +' } ] }, 'ArrayOfToyLocation' ), 'color' => 'none', 'toyName' => 'Sorry', 'size' => 'medium' }, 'Board' ) ] }, 'ArrayOfToy' ) }; foreach my $e (@{$getToysResults->{Toys}{Toy}}) { my $location_ref = $e->{ToyLocations}{ToyLocation}; my $location_array_ref = ref($location_ref) eq 'ARRAY' ? $location_ref : [ $location_ +ref ]; for my $location_array_hash_ref (@$location_array_ref) { print $location_array_hash_ref->{locationName}, "\n"; } } [download] Output: `$ pm_parse_soap_ref.pl HASH:toybox ARRAY:toybox ARRAY:shelf` [download] -- Ken	[reply] [d/l] [select]
Re^6: Parsing SOAP::Lite results by Roboz (Novice) on Sep 28, 2012 at 13:44 UTC
Re^7: Parsing SOAP::Lite results by kcott (Archbishop) on Sep 28, 2012 at 15:13 UTC
Re^5: Parsing SOAP::Lite results by Anonymous Monk on Sep 28, 2012 at 12:57 UTC
Yes, ref is ref	[reply]
Re^3: Parsing SOAP::Lite results by 2teez (Vicar) on Sep 28, 2012 at 12:16 UTC
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} }; } [download] 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	[reply] [d/l]

I tested that code before posting. I changed $VAR1 to my $getToysResults but otherwise left the Dumper output unchanged. Here's the script (pm_parse_soap_hash.pl) in its entirety:

#!/usr/bin/env perl

use strict;
use warnings;

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}}) {
    my $location_array_ref = $e->{ToyLocations}{ToyLocation};
    
    for my $location_array_hash_ref (@$location_array_ref) {
        print $location_array_hash_ref->{locationName}, "\n";
    } 
}
[download]

Here's the output:

$ pm_parse_soap_hash.pl
toybox
shelf
[download]

Try running that script. If it works, then maybe the data you posted was incorrect (typo, cut-and-paste error, etc.) or perhaps you used my code differently. Try adding print Dumper $getToysResults; just before the outer foreach in your code and see if it produces the same output as you originally posted.

If it doesn't work, please post full output along with your Perl version and OS: as it stands, I can't see anything there that wouldn't work on any version of Perl 5.

-- Ken

[reply]
[d/l]
[select]

I see what's causing my issue with the 'Not an ARRAY ref' error. When there is only one location it's not an array.

$VAR1 = {
  'Toys' => bless( {
           'Toy' => [
              bless( {
               'ToyLocations' => bless( {
                               'ToyLocation' => {
                                                'toyQuantity' => '2',
                                                'locationName' => 'toy
+box'
                                                }
                                 }, 'ArrayOfToyLocation' ),
               'color' => 'brown',
               'toyName' => 'bear',
               'size' => 'large'
               }, 'Stuffed' ),
          bless( {
               'ToyLocations' => bless( {
                               'ToyLocation' => [
                                                {
                                                'toyQuantity' => '1',
                                                'locationName' => 'toy
+box'
                                                },
                                                {
                                                'toyQuantity' => '4',
                                                'locationName' => 'she
+lf'
                                                }
                                                ]
                                 }, 'ArrayOfToyLocation' ),
               'color' => 'none',
               'toyName' => 'Sorry',
               'size' => 'medium'
               }, 'Board' )
              ]
        }, 'ArrayOfToy' )
     };
[download]

Still stuck on what to do in this case. Would this be where introspection comes in? pseudo:(if HASH, then ... %$location) elsif ARRAY, then ... @$location) ? Thanks to all who are helping me learn this!

[reply]
[d/l]
[select]

You can use ref to do that.

Here's a modification of my earlier script to show this. For illustration purposes, I've made minor changes to the locationName values so you can see which toybox is being referred to.

#!/usr/bin/env perl

use strict;
use warnings;

my $getToysResults = {
  'Toys' => bless( {
           'Toy' => [
              bless( {
               'ToyLocations' => bless( {
                       'ToyLocation' => {
                                        'toyQuantity' => '2',
                                        'locationName' => 'HASH:toybox
+'
                                        }   
                         }, 'ArrayOfToyLocation' ),
               'color' => 'brown',
               'toyName' => 'bear',
               'size' => 'large'
               }, 'Stuffed' ),
          bless( {
               'ToyLocations' => bless( {
                       'ToyLocation' => [
                                        {   
                                        'toyQuantity' => '1',
                                        'locationName' => 'ARRAY:toybo
+x'
                                        },  
                                        {   
                                        'toyQuantity' => '4',
                                        'locationName' => 'ARRAY:shelf
+'
                                        }   
                                        ]   
                         }, 'ArrayOfToyLocation' ),
               'color' => 'none',
               'toyName' => 'Sorry',
               'size' => 'medium'
               }, 'Board' )
              ]
        }, 'ArrayOfToy' )
     };

foreach my $e (@{$getToysResults->{Toys}{Toy}}) {
    my $location_ref = $e->{ToyLocations}{ToyLocation};
    my $location_array_ref
        = ref($location_ref) eq 'ARRAY' ? $location_ref : [ $location_
+ref ];
    
    for my $location_array_hash_ref (@$location_array_ref) {
        print $location_array_hash_ref->{locationName}, "\n";
    }
}
[download]

Output:

$ pm_parse_soap_ref.pl
HASH:toybox
ARRAY:toybox
ARRAY:shelf
[download]

-- Ken

[reply]
[d/l]
[select]

Yes, ref is ref

[reply]

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} };
}
[download]

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

[reply]
[d/l]