Foro - Perl en Español

por **adrian_sla** » 2011-08-19 10:37 @484

¡¡¡Hola!!!

Tengo el siguiente código

if ( $xml_res->{response}->{status} eq 'success' and $xml_res->{response}->{isAvailable} eq 'Y' ) {
my $arref = \@{ $xml_res->{response}->{ratesFound}->{rate} };
for ( my $i = 0 ; $i < @{$arref} ; $i++ ) {
if ( @{$arref}[$i]->{invSource} && @{$arref}[$i]->{roomTypeCode} && @{$arref}[$i]->{ratePlanCode} ) {
my %hash = (
invSource => @{$arref}[$i]->{invSource},
roomTypeCode => @{$arref}[$i]->{roomTypeCode},
ratePlanCode => @{$arref}[$i]->{ratePlanCode}
);

return %hash;
}
}
}

La línea marcada en rojo me devuelve el error "Not an array reference".
Por lo que entiendo, está casteando un hash a un array. ¿Es posible hacer eso?

Desde ya, ¡muchas gracias!
¡Un saludo!

Y de esa manera, $arref apunta al mismo array que $xml_res->{response}->{ratesFound}->{rate}.

El mensaje de error dice que, al intentarlo, se ha encontrado con que $xml_res->{response}->{ratesFound}->{rate} no contiene ninguna referencia a ningún array. O no es una referencia (quizás un valor escalar normal) o un valor indefinido (undef) o, realmente, no existe $xml_res->{response}->{ratesFound}->{rate}.

El código está un poco enmarañado... yo lo pondría así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (   $xml_res->{response}{status     } eq 'success'
   and $xml_res->{response}{isAvailable} eq 'Y'
) {
    for my $item_ref ( @{$xml_res->{response}{ratesFound}{rate}} ) {
        if (   $item_ref->{invSource   }
           and $item_ref->{roomTypeCode}
           and $item_ref->{ratePlanCode}
        ) {
            my %hash = (
                invSource    => $item_ref->{invSource   },
                roomTypeCode => $item_ref->{roomTypeCode},
                ratePlanCode => $item_ref->{ratePlanCode},
            );
 
            return %hash;
        }
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Not an ARRAY reference

Not an ARRAY reference

Publicidad

Re: Not an ARRAY reference

¿Quién está conectado?