Почему Perl печатает значение, которого я не ожидаю после увеличения?

Question

Я запускаю этот однострочный текст из командной строки:

perl -MList::Util=sum -E 'my $x = 0; say sum(++$x, ++$x)'

Почему он говорит "4" вместо "3"?

Answer 1

Во-первых, имейте в виду, что Perl проходит по ссылке.Это означает, что

sum(++$x, ++$x)

в основном совпадает с

do {
   local @_;
   alias $_[0] = ++$x;
   alias $_[1] = ++$x;
   ∑
}

Предварительное увеличение возвращает саму переменную, а не ее копию *, так что это означает и $_[0], и $_[1] имеют псевдоним $x.Поэтому sum видит текущее значение $x (2) для обоих аргументов.

Правило: не изменяйте и не читайте значение в одном выражении.

* - Это не задокументировано, но вы спрашиваете, почему Perl ведет себя так, как он.

Answer 2

Вы изменяете $x дважды в одном выражении. Согласно документам , Perl не гарантирует, что будет результатом этих утверждений. Так что вполне может быть "2" или "0".

Answer 3

Поскольку оба инкремента выполняются до вычисления суммы.

После выполнения обоих действий x = 2.

2 + 2 = 4.