Perl quyết định thứ tự nào để đánh giá các thuật ngữ trong một biểu thức?

Question

Với mã:

my $x = 1; 

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

Tôi mong chờ $x là 180:

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

Nhưng thay vào đó là 30; tuy nhiên, nếu tôi thay đổi thứ tự các điều khoản:

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

Tôi nhận được 180. Lý do tôi bối rối là perldoc perlop nói rất rõ ràng:

TERM có quyền ưu tiên cao nhất trong Perl. Chúng bao gồm các biến, các toán tử báo giá và trích dẫn tương tự, bất kỳ biểu thức nào trong dấu ngoặc đơn và bất kỳ hàm nào có đối số được đặt dấu ngoặc đơn.

Vì trong ngoặc đơn, nó phải là một thuật ngữ và do đó được thực hiện trước, bất kể thứ tự của biểu thức.

Answer 1

Hành vi nhập câu hỏi mang lại câu trả lời cho tôi: các cụm từ có mức độ ưu tiên cao nhất. Điều đó có nghĩa rằng $x trong đoạn đầu tiên của mã được đánh giá và mang lại 1, sau đó 5 được đánh giá và sản lượng 5, sau đó ($x += 5) là đánh giá và sản lượng 6 (với một hiệu ứng phụ của việc thiết $x-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 

Tương tự như vậy, ví dụ thứ hai giảm như thế này:

$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 bởi chính nó cũng là một HẠN. Vì nó gặp phải đầu tiên (trong ví dụ đầu tiên của bạn), nó được đánh giá đầu tiên.

Answer 3

Bất cứ khi nào tôi có nhầm lẫn về những thứ như thế này đầu tiên tôi kéo ra perldoc perlop, và sau đó nếu tôi vẫn không chắc chắn, hoặc muốn xem cách một khối mã cụ thể sẽ được thực hiện, tôi sử dụng B::Deparse:

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

^D

cho:

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

giá trị Vì vậy, thay thế tại mỗi giai đoạn cho:

($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; 

Vì vậy, thực tế là $ x đã tạm thời thiết lập để 6 không thực sự ảnh hưởng đến bất cứ điều gì, bởi vì giá trị trước đó (1) đã được thay thế vào biểu thức, và đến cuối của biểu thức nó bây giờ là 30.

Answer 4

Tính kết hợp của toán tử * là trái, vì vậy, thuật ngữ lâu dài nhất luôn được đánh giá trước thời hạn phù hợp nhất.Các toán tử khác, chẳng hạn như ** là kết hợp phù hợp và sẽ đánh giá ($x += 5) trước phần còn lại của câu lệnh.