http://www.perlmonks.org?node_id=879441


in reply to Re^2: xml simple not a hash reference
in thread xml simple not a hash reference

I don't know how to loop through the mealtypes

The same way you're looping through the roomtypes: 

    for my $mealtype ( @{$e->{mealtypes}->{mealtype}} ) {
        $rateid = $mealtype->{rateid};
    }

[download]

but don't forget to apply ForceArray to mealtype, too; or check with ref if $e->{mealtypes}->{mealtype} is an array reference, and only loop in that case (otherwise, you'd get an error if there's only one mealtype entry, in which case XML::Simple (without ForceArray in effect) would not create an extra array...)

Replies are listed 'Best First'.
Re^4: xml simple not a hash reference
by Noverast (Initiate) on Dec 29, 2010 at 07:40 UTC

    Thanks, I am almost there. I am using the following code:

    my $type = ref( $e->{mealplans}->{mealplan} );

if ($type eq "ARRAY")
{

$mealplans=$e->{mealtypes}->{mealtype};

    for my $mealtype ( @{$e->{mealtypes}->{mealtype}} ) {
        $rateid = $mealtype->{rateid};
        
        print "$mealtype";
    }
}

    [download]

    It prints out: HASH(0x27acfbc)HASH(0x27acfcc) How do I get the Array readable?

[reply]
[d/l]
      It prints out: HASH(0x27acfbc)
      This indicates that your $mealtype variable does not hold a scalar or array, but a reference to a hash.

      The easiest way to print that is probably to use Data::Dumper: 

      use Data::Dumper;
print Dumper($mealtype);

      [download]
[reply]
[d/l]
        To quote perldata
        Perl has three built-in data types: scalars, arrays of scalars, and associative arrays of scalars, known as "hashes". A scalar is a single string (of any size, limited only by the available memory), number, or a reference to something (which will be discussed in perlref).
[reply]
Re^4: xml simple not a hash reference
by Noverast (Initiate) on Dec 29, 2010 at 08:09 UTC

    This is what I am getting

    $VAR1 = { 'defaultmealplan' => 'true', 'rates' => { 'pax3' => '1180.00
+', 'pax2' => '930.00', 'pax4' => '1405.00', 'pax1' => '550.00' }, 'me
+alplandesc' => 'Bed & Breakfast', 'rateid' => '6' };

$VAR1 = { 'rates' => { 'pax3' => '850.00', 'pax2' => '700.00', 'pax4' 
+=> '975.00', 'pax1' => '450.00' }, 'mealplandesc' => 'Self-catering',
+ 'rateid' => '7' };

    [download]
[reply]
[d/l]
Re^4: xml simple not a hash reference
by Noverast (Initiate) on Dec 29, 2010 at 08:27 UTC

    It is sorted out now! Thank you very much for all the help

[reply]
Re^4: xml simple not a hash reference
by Anonymous Monk on Dec 29, 2010 at 06:22 UTC

    Thanks, I am almost there. I used the following code:

    my $type = ref( $e->{mealtypes}->{mealtype} );

if ($type eq "ARRAY")
{

    for my $mealtype ( @{$e->{mealtypes}->{mealtype}} ) {
        $rateid = $mealtype->{rateid};
        
        print "$mealtype";
    }
}

    [download]

    However now I getting HASH(0x279d04c)HASH(0x279d05c). How do get the array in a readable state?

[reply]
[d/l]

In Section Seekers of Perl Wisdom