W jaki sposób Perl decyduje, która kolejność oceny terminów w wyrażeniu?

Question

względu na kod:

my $x = 1; 

$x = $x * 5 * ($x += 5); 

spodziewałbym $x być 180:

$x = $x * 5 * ($x += 5); #$x = 1 
$x = $x * 5 * 6;   #$x = 6 
$x = 30 * 6; 
$x = 180; 
180; 

Ale zamiast tego 30; Jednak, jeśli mogę zmienić kolejność warunków:

$x = ($x += 5) * $x * 5; 

ja rozumiem 180. Powodem dla którego jestem zdezorientowany jest to, że perldoc perlop mówi bardzo wyraźnie:

TERM ma najwyższy priorytet w Perlu. Obejmują one zmienne, operatory kwotowania i cytowań, dowolne wyrażenie w nawiasach i dowolną funkcję , której argumenty są nawiasami.

Ponieważ ($x += 5) znajduje się w nawiasach, powinien być terminem, a zatem wykonywany jako pierwszy, niezależnie od kolejności wyrażenia.

Answer 1

Czynność wpisania pytania dała mi odpowiedź: warunki mają najwyższy priorytet. Oznacza to, że $x w pierwszym kawałku kodu ocenie i otrzymano 1, następnie 5 oceniano i wydajności 5, następnie ($x += 5) to ocenić i wydajności 6 (z efektem ubocznym ustalania $x do 6):

$x = $x * 5 * ($x += 5); 
address of $x = $x * 5 * ($x += 5); #evaluate $x as an lvalue 
address of $x = 1 * 5 * ($x += 5); #evaluate $x as an rvalue 
address of $x = 1 * 5 * ($x += 5); #evaluate 5 
address of $x = 1 * 5 * 6;   #evaluate ($x += 5), $x is now 6 
address of $x = 1 * 5 * 6;   #evaluate 1 * 5 
address of $x = 5 * 6;    #evaluate 1 * 5 
address of $x = 30;     #evaluate 5 * 6 
30;         #evaluate address of $x = 30 

Podobnie, drugi przykład zmniejsza tak:

$x = ($x += 5) * $x * 5; 
address of $x = ($x += 5) * $x * 5; #evaluate $x as an lvalue 
address of $x = 6 * $x * 5;   #evaluate ($x += 5), $x is now 6 
address of $x = 6 * 6 * 5;   #evaluate $x as an rvalue 
address of $x = 6 * 6 * 5;   #evaluate 5 
address of $x = 36 * 5;    #evaluate 6 * 6 
address of $x = 180;    #evaluate 36 * 5 
180;        #evaluate $x = 180 

Answer 2

$x sam jest termin. Ponieważ jest napotkany pierwszy (w twoim pierwszym przykładzie), jest oceniany jako pierwszy.

Answer 3

Ilekroć mam zamieszanie o rzeczy, jak to ja pierwszy wyciągnąć perldoc perlop, a następnie, jeśli nadal nie jestem pewien, czy chcę zobaczyć jak dany fragment kodu będzie się stracony, używam B::Deparse:

perl -MO=Deparse,-p,-q,-sC 
my $x = 1; 
$x = $x * 5 * ($x += 5); 

^D

otrzymujemy:

(my $x = 1); 
($x = (($x * 5) * ($x += 5))); 
- syntax OK 

więc, podstawiając wartości na każdym etap daje:

($x = (($x * 5) * ($x += 5))); 
($x = ((1 * 5) * ($x += 5))); 
($x = ((5) * (6))); # and side-effect: $x is now 6 
($x = (5 * 6)); 
($x = (30)); 
($x = 30); 
$x = 30; 

więc fakt, że $ x został tymczasowo ustawić do 6 tak naprawdę nie wpływa na nic, bo wcześniej wartość (1) był już podstawiony do wypowiedzi, a pod koniec tego wyrazu to jest teraz 30.

Answer 4

Zależność operatora * jest lewostronna, więc lewy najbardziej termin jest zawsze oceniany przed właściwym terminem.Inni operatorzy, na przykład **, są stowarzyszeni prawostronnie i przed pozostałą częścią instrukcji oceniliby numer ($x += 5).