¿Cómo almacena un resultado en una variable y verifica el resultado en un condicional?

Question

Sé que es posible, pero estoy dejando en blanco la sintaxis. ¿Cómo se hace algo similar a lo siguiente como un condicional. 5.8, por lo que no hay opción Cambiar:

while (calculate_result() != 1) { 
    my $result = calculate_result(); 
    print "Result is $result\n"; 
} 

Y algo similar a:

while (my $result = calculate_result() != 1) { 
    print "Result is $result\n"; 
} 

Answer 1

es necesario agregar paréntesis para especificar precedencia que != tiene mayor prioridad que =:

while ((my $result = calculate_result()) != 1) { 
    print "Result is $result\n"; 
} 

Answer 2

¿Qué pasa con:

$_ = 1; 
sub foo { 
    return $_++; 
} 
while ((my $t = foo()) < 5) 
{ 
    print $t; 
} 

resultados en 1234

Answer 3

kemp tiene la respuesta correcta acerca de la precedencia. Solo agregaría que hacer expresiones complejas que involucren tanto asignaciones como comparaciones en una condición de ciclo puede hacer que el código sea feo e ilegible muy rápidamente.

lo escribiría así:

while (my $result = calculate_result()) { 
    last if $result == 1; 
    print "Result is $result\n"; 
} 

Answer 4

estaban cerca ...

while ((my $result = calculate_result()) != 1) { 
    print "Result is $result\n"; 
}