Foro - Perl en Español

¡¡¡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!

quiere decir: "$xml_res->{response}->{ratesFound}->{rate} contiene una referencia a un array. Con el 'cast' @{} obtenemos el array referenciado, y con el '\' obtenemos una referencia a ese array, para almacenarlo en el escalar $arref".

Humm... me parece que el programador se ha liado un poco

A lo mejor queda más claro así:
o más corto, así:
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í: