为什么Perl会抱怨“在无效的情况下无用的常量”，但有时候呢？

Question

这里是我的Perl脚本，其输出：

use strict; 
use warnings; 

(undef, 1); # no output 
(0, 1);  # no output 
(1, 1);  # no output 
(2, 1);  # "Useless use of a constant in void context at C:\...\void.pl line 7" 
(3, 1);  # "Useless use of a constant in void context at C:\...\void.pl line 8" 
("", 1); # "Useless use of a constant in void context at C:\...\void.pl line 9" 
("0", 1); # "Useless use of a constant in void context at C:\...\void.pl line 10" 
("1", 1); # "Useless use of a constant in void context at C:\...\void.pl line 11" 

我希望在每行警告。 undef，0和1什么是特殊的，导致这种情况不会发生？

Answer 1

在perldoc perldiag完整的文献记载理由：

此警告不会发出等于0或1数字常量，因为它们是在陈述经常使用像

1 while sub_with_side_effects(); 

至于undef，这是一个功能，甚至在无效的情况下使用。例如undef($x)与—类似，但不同于— $x = undef();。 （您通常需要后者。）在无效的情况下，可以针对undef没有参数的使用发出警告，但它需要专门的代码，并且根本不需要。