Perché Perl si lamenta "Uso inutile di una costante nel contesto vuoto", ma solo qualche volta?

Question

Ecco il mio script Perl e la sua uscita:

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" 

mi aspetterei avvertimenti a ogni linea. Qual è la particolarità di undef, 0 e 1 che causa questo non accadere?

Answer 1

documentato in perldoc perldiag completo di logica:

Questo avviso non sarà rilasciato per le costanti numeriche pari 0 o 1 dal momento che sono spesso utilizzati nelle dichiarazioni come

1 while sub_with_side_effects(); 

Per quanto riguarda undef, è una funzione che utilizza anche nel contesto vuoto. per esempio. undef($x) ha qualcosa di simile a — ma diverso da — $x = undef();. (Di solito si desidera quest'ultima.) Potrebbe essere emesso un avviso per gli usi di undef senza argomenti nel contesto vuoto, ma richiederebbe codice specializzato e semplicemente non è necessario.