如何将结果存储到变量并在条件中检查结果?

Oes*_*sor 6 perl perl5.8

我知道这是可能的,但我在语法上画了一个空白.你如何做有条件的类似以下的事情.5.8,所以没有开关选项:

while ( calculate_result() != 1 ) {
    my $result = calculate_result();
    print "Result is $result\n";
}
Run Code Online (Sandbox Code Playgroud)

和类似的东西:

while ( my $result = calculate_result() != 1 ) {
    print "Result is $result\n";
}
Run Code Online (Sandbox Code Playgroud)

Mat*_*iva 9

您需要添加括号以指定优先级,因为!=优先级高于=:

while ( (my $result = calculate_result()) != 1 ) {
    print "Result is $result\n";
}
Run Code Online (Sandbox Code Playgroud)