Cảnh báo về khoảng trống chỉ với các nhà khai thác ngắn mạch có mức ưu tiên thấp

Question

Tôi vừa gặp phải một tình huống trong đó and và && hoạt động khác với các cảnh báo.

Đây là tập lệnh gốc với and.

#!/usr/bin/env perl 
use strict; 
use warnings 'FATAL' => qw[all]; 

my $var1; 
my $var2; 

my $defined = (defined $var1) and (defined $var2); 

print ($defined ? "defined\n" : "undefined\n"); 

vì điều kiện đầu tiên là sai, biểu thức thứ hai trong và không bao giờ được đánh giá.

% perl defined.pl 
Useless use of defined operator in void context at defined.pl line 8. 
Exit 255 

Tuy nhiên, nếu tôi thay đổi hoạt động sang ưu tiên cao hơn nhưng nếu không giống hệt &&, tôi sẽ không nhận được cảnh báo ngữ cảnh trống.

#!/usr/bin/env perl 
use strict; 
use warnings 'FATAL' => qw[all]; 

my $var1; 
my $var2; 

my $defined = (defined $var1) && (defined $var2); 

print ($defined ? "defined\n" : "undefined\n"); 

Chương trình tạo kết quả mong đợi, "undefined\n".

% perl defined.pl 
undefined 

perldoc perlop gợi ý rằng and và && nên giống hệt nhau trong tất cả các khía trừ được ưu tiên, nhưng không nêu nó một cách rõ ràng.

Là lựa chọn thay thế cho & & và || khi được sử dụng cho dòng điều khiển, Perl cung cấp và và hoặc các nhà điều hành (xem bên dưới). Hành vi ngắn mạch là giống hệt nhau. Các ưu tiên của "và" và "hay" thấp hơn nhiều, tuy nhiên, vì vậy mà bạn có thể an toàn sử dụng chúng sau khi một nhà điều hành danh sách mà không cần cho ngoặc:

Answer 1

Toán tử gán có higher precedence hơn and, nên

my $defined = (defined $foo) and (defined $bar); 

tương đương với

(my $defined = (defined $foo)) && (defined $bar); 

Bạn có thể thấy điều này với B::Deparse:

$ perl -MO=Deparse -e'my $defined = (defined $foo) && (defined $bar)'                
my $defined = defined $foo && defined $bar; 
-e syntax OK 

$ perl -MO=Deparse -e'my $defined = (defined $foo) and (defined $bar)' 
defined $bar if my $defined = defined $foo; 
-e syntax OK