Perl una riga if

Question

Ho una dichiarazione

$set eq "Y" ? $set = "N" : $set = "Y"; 

Ma non importa ciò che si propone sempre di "N"

# Toggle setting 
if ($set eq "Y") 
{ 
    $set = "N"; 
} 
else 
{ 
    $set = "Y"; 
} 

Perché l'uno di linea non sembra funzionare?

Answer 1

causa di regole di precedenza, Perl non è l'analisi la sua dichiarazione come si pensa :

$ perl -MO=Deparse,-p -e '$set eq "Y" ? $set = "N" : $set = "Y"' 
((($set eq 'Y') ? ($set = 'N') : $set) = 'Y'); 
-e syntax OK 

quindi, come si vede, in entrambe le condizioni, il risultato finale è lo scalare $set che poi viene impostato su Y.

È possibile risolvere il problema con un paio di parentesi:

$set eq "Y" ? $set = "N" : ($set = "Y") 

Ma perché ripetere l'assegnazione:

$set = $set eq 'Y' ? 'N' : 'Y'; 

Answer 2

$set = ($set eq "Y") ? "N" : "Y"; 

dovrebbe funzionare

Answer 3

Precedenza degli operatori. Quello che hai scritto è equivalente a

($set eq "Y" ? $set = "N" : $set) = "Y"; 

Se ti ostini a scrivere tale codice stringato, questo ha più senso:

$set = ($set eq "Y" ? "N" : "Y"); 

Answer 4

Si tratta di precedenza; facciamolo l'intento con la parentesi, e poi lasciare che il Perl rimuovere di nuovo:

perl -MO=Deparse -e '($set eq "Y") ? ($set = "N") : ($set = "Y"); print $set' 
$set eq 'Y' ? $set = 'N' : ($set = 'Y'); 
print $set; 
-e syntax OK 

Qual è dunque la parenthesing necessario per fare come desiderato.

Answer 5

Se non si preferisce utilizzare istruzioni condizionali "C" di stile, si può fare la stessa cosa con 2 linee:

my $set = "Y"; #Set the scope and default value 
$set = "N" if ($set eq "Y"); 

io personalmente raccomando lo stile "C" descritto da altri di cui sopra ... facilmente dimostra le due opzioni che può essere una variabile.

Tuttavia, il metodo che mostro è ottimo quando si ha a che fare con un singolo risultato condizionale.