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

Question

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

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

只是类似于:

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

Answer 1

您需要添加括号以指定优先级为 !=具有比 = 更高的优先级:

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