僅針對低優先級短路運營商的空白背景的警告

Question

我剛剛遇到and和&&在警告方面表現不同的情況。

這是原始腳本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"); 

因爲第一個條件是假的，所以第二個表達式永遠不會被評估。

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

但是，如果我改變運行到較高優先級但完全一樣&&，我沒有得到一個無效的情況下報警。

#!/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"); 

程序產生預期結果"undefined\n"。

% perl defined.pl 
undefined 

perldoc perlop表明and和&&應在除優先級所有方面完全相同，但沒有明確說明它。

作爲&的替代品&和|當用於控制流程時，Perl提供了 和和或運算符（見下文）。短路行爲是 相同。的優先級「和」和「或」低得多，然而， ，你可以放心地使用它們的列表操作後，無需 的括號：

Answer 1

賦值運算符有higher precedence比and，所以

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

相當於

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

您可以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