В Perl - может быть отключена оценка короткого замыкания, если необходимо?

Question

Это следующий вопрос для this one.

Например, предположим, что у меня есть три процедуры, которые мне нужно работать независимо от того, что и выход, если все они вернутся 1.

while (&proc1 && &proc2 && &proc3); 

Поскольку Perl использует оценку короткого замыкания, код может или не могут выполнять подпрограммы & proc2 и & proc3 в зависимости от предыдущих операндов (если операнд является ложным, следующие операнды не будут выполнены; больше информации here и on wiki). Если необходимо, есть ли способ отключить эту функцию?

Answer 1

Вы можете использовать оператор умножения

while (&proc1 * &proc2 * &proc3) { ... } 

Это будет оценивать все три операнда и оценивать ложь, если какой-либо один из них является ложным (ноль).

Если вы беспокоитесь о предупреждения о неинициализированных значений, вы можете использовать побитовое и с псевдо-оператора !! монолитно-к-логическое значение:

while (!!&proc1 & !!&proc2 & !!&proc3) { ... } 

, который будет делать почти то же самое. Приведение от буфера к буле необходимо, потому что результат поразрядного и двух произвольных истинных значений может по-прежнему быть ложным (например, 1 & 2 оценивает 0).

Answer 2

Вы можете просто оценить каждое предложение во временных переменных, а затем оценить все выражение. Например, чтобы избежать оценки короткого замыкания в:

if ($x < 10 and $y < 100) { do_something(); } 

пишут:

$first_requirement = ($x < 10); 
$second_requirement = ($y < 100); 
if ($first_requirement and $second_requirement) { do_something(); } 

будет оцениваться Оба условными. Предположительно, вам нужны более сложные условия с побочными эффектами, иначе нет смысла оценивать второе условие, если первое ложно.

Answer 3

Вы могли бы написать

until (grep !$_, proc1(), proc2(), proc3()) { 
    ... 
} 

Что бы вы ни делали, вы не должны вызывать подпрограммы, используя синтаксис амперсанд, как &proc1. Это было неправильно в течение многих лет, заменено на proc1()

Answer 4

Я не знаю, каким образом можно отключить оценку короткого замыкания, но вы можете оценить каждый компонент в начале тела цикла и разорвать его условий ложно.

while (1) { 
    my $result1 = &proc1; 
    my $result2 = &proc2; 
    my $result3 = &proc3; 
    last unless ($result1 && $result2 && $result3); 
    ... 
}