Foro - Perl en Español

por **PipoRide** » 2012-02-15 14:17 @636

Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub getValue{
        my($self, $caseDetail, $plans, $testCaseFlow) = @_;
 
        my @plans = @$plans;
        if($caseDetail->data)
        {
                my $plan;
                my $error;
                try{
                        foreach $plan (@plans){
                                my ($plan_value, $data_value) = split ("-",$plan);
                                if($caseDetail->data->name eq $data_value){
                                        return $plan_value;
                                }
                        }
                        return $caseDetail->data->getValueByDataAndPlan($plan)->value;
                }
                catch{
                        my $e = @_;
                        $error = $e;
                };
                if($error){
                        return $caseDetail->data->value;
                }
        }
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Todo funciona perfecto menos cuando se cumple la condición del if()

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($caseDetail->data->name eq $data_value){
       return $plan_value;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La función es llamada así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $value = $self->getValue($caseDetail, \@plans, $testCaseFlow);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Para los otros dos return() me entregan un valor, pero no así para el return() del if().

Me retorna un valor vacío...
¿Estoy haciendo algo mal?
¿Es posible hacer eso?

He puesto un print() dentro del if() y me muestra el valor de $plan_value, y todo Ok.
No sé en qué me estoy equivocando.

De antemano, gracias.

La función tiene 4 salidas: las líneas 13, 16, 23 y el propio final de la función, en caso de if($caseDetail->data) falle. Este último es el que sí es seguro que devuelve un valor vacío.

Delante de cada return(), yo pondría un print(), del estilo "sale por return 1, con valor ...". Para estar completamente seguro.

por **PipoRide** » 2012-02-16 07:28 @352

Hummmm Lo acabo de hacer, y claro, retorna el valor del final.
Como si el return() del if() no estuviese funcionando.
Por eso me retorna un valor vacío...
¿A qué se debe esto?
Porque con el print() que hago dentro del if() me aseguro de que sí entra.

por **PipoRide** » 2012-02-16 07:33 @356

Bueno, la solución fue poner un "Flag" dentro del If().

Luego, fuera del try/catch pregunté si la bandera había sido cambiada y si era así, que retorne el valor.

Funciona perfecto.

Lo raro es el porqué no puedo retornar dentro del try/catch

Bueno, ¡muchas gracias, explorer!

No lo habría podido solucionar sin tu ayuda.

por **explorer** » 2012-02-16 07:47 @366

El problema quizás esté en la elección del módulo que implementa el try/catch.

Si has usado Try::Tiny, un return que esté dentro de try/catch, devolverá el control a la subrutina en donde esté ese try/catch, no a la línea que llamó a la subrutina.

En cambio, con TryCatch, un return() dentro de try/catch sí que devolverá el control a la línea que llamó a la subrutina.

Si estás usando Try::Tiny, deberás ver la sección CAVEATS, de su página de manual. Allí viene una forma de cómo hacerlo: capturando el valor que devuelve try{}. O también se puede solucionar como lo has hecho tu: con una bandera.

por **PipoRide** » 2012-02-16 08:13 @384

¡Como siempre dando una mayor cantidad de soluciones!

Así es estoy usando Try::Tiny.
Le echaré un vistazo a CAVEATS y también probaré con TryCatch.

Muchas gracias.

Foro - Perl en Español

return dentro de un if

return dentro de un if

Publicidad

Re: return dentro de un if

Re: return dentro de un if

Re: return dentro de un if

Re: return dentro de un if

Re: return dentro de un if

Re: return dentro de un if

Re: return dentro de un if

¿Quién está conectado?