Come si usano le variabili booleane in Perl?

Question

ho provato:

$var = false; 
$var = FALSE; 
$var = False; 

nessuno di questi lavori. Ottengo il messaggio di errore

Bareword "false" not allowed while "strict subs" is in use.

Answer 1

In Perl, il seguente valutare a false in condizionali:

0 
'0' 
undef 
'' # Empty scalar 
() # Empty list 
('') 

Il resto sono vere. Non ci sono parole per true o false.

Answer 2

Perl non ha un tipo booleano nativo, ma è possibile utilizzare il confronto di numeri interi o stringhe per ottenere lo stesso comportamento. L'esempio di Alan è un buon modo per farlo usando il confronto tra interi. Ecco un esempio

my $boolean = 0; 
if ($boolean) { 
    print "$boolean evaluates to true\n"; 
} else { 
    print "$boolean evaluates to false\n"; 
} 

Una cosa che ho fatto in alcuni dei miei programmi si aggiunge lo stesso comportamento con una costante:

#!/usr/bin/perl 

use strict; 
use warnings; 

use constant false => 0; 
use constant true => 1; 

my $val1 = true; 
my $val2 = false; 

print $val1, " && ", $val2; 
if ($val1 && $val2) { 
    print " evaluates to true.\n"; 
} else { 
    print " evaluates to false.\n"; 
} 

print $val1, " || ", $val2; 
if ($val1 || $val2) { 
    print " evaluates to true.\n"; 
} else { 
    print " evaluates to false.\n"; 
} 

Le linee segnate in "uso costante" definire una costante di nome vero che restituisce sempre 1, e una costante di nome falso che valuta sempre da 0. a causa del modo in cui le costanti sono definite in Perl, le seguenti righe di codice non riesce così:

true = 0; 
true = false; 

Il messaggio di errore dovrebbe indicare qualcosa come "Impossibile modificare la costante nell'assegnazione scalare".

Ho visto che in uno dei commenti che hai chiesto sul confronto delle stringhe. Si deve sapere che, poiché il Perl combina le stringhe e tipi numerici a variabili scalari, avete sintassi diversa per il confronto di stringhe e numeri:

my $var1 = "5.0"; 
my $var2 = "5"; 

print "using operator eq\n"; 
if ($var1 eq $var2) { 
    print "$var1 and $var2 are equal!\n"; 
} else { 
    print "$var1 and $var2 are not equal!\n"; 
} 

print "using operator ==\n"; 
if ($var1 == $var2) { 
    print "$var1 and $var2 are equal!\n"; 
} else { 
    print "$var1 and $var2 are not equal!\n"; 
} 

La differenza tra questi operatori è una fonte molto comune di confusione in Perl.

Answer 3

Raccomando use boolean;. Devi installare il modulo boolean da cpan però.

Answer 4

Il più completo, definizione sintetica di falso che ho incontrato è:

Tutto ciò che stringifies alla stringa vuota o la stringa `0` è falso. Tutto il resto è vero.

Pertanto, i seguenti valori sono false:

• La stringa vuota
• valore numerico pari a zero
• Un valore indefinito
• Un oggetto con un operatore booleano overload che valuta uno dei precedenti.
• Una variabile magica che valuta uno dei precedenti in fetch.

Ricordare che un valore letterale di elenco vuoto restituisce un valore non definito nel contesto scalare, quindi viene valutato come falso.

---

Una nota sulle "vere" zeri

Mentre i numeri che stringa i per 0 sono false, stringhe che numify a zero non sono necessariamente. Le sole stringhe false sono 0 e la stringa vuota. Qualsiasi altra stringa, anche se numifica a zero, è vera.

Quelle che seguono sono stringhe vere come booleane e zero come numero.

• Senza un avvertimento:
  • "0.0"
  • "0E0"
  • "00"
  • "+0"
  • "-0"
  • " 0"
  • "0\n"
  • ".0"
  • "0."
  • "0 but true"
  • "\t00"
  • "\n0e1"
  • "+0.e-9"
• con un avvertimento:
  • Qualsiasi stringa per cui Scalar::Util::looks_like_number restituisce false. (Ad es "abc")

Answer 5

Bella spiegazione data da bobf per i valori booleani: True or False? A Quick Reference Guide

test di verità per valori diversi

     Result of the expression when $var is: 

Expression   | 1  | '0.0' | a string | 0  | empty str | undef 
--------------------+--------+--------+----------+-------+-----------+------- 
if($var)   | true | true | true  | false | false  | false 
if(defined $var) | true | true | true  | true | true  | false 
if($var eq '') | false | false | false | false | true  | true 
if($var == 0)  | false | true | true  | true | true  | true 

Answer 6

utilizzare il seguente prefisso del file, questo aggiungerà al vostro script perl eTRUE ed eFALSE, sarà in realtà REAL (!) vero e falso (proprio come java)

#!/usr/bin/perl 
use strict; 
use warnings; 

use constant { #real true false, compatible with encode_json decode_json for later (we don't want field:false... will be field:0...) 
       eTRUE => bless(do{\(my $o = 1)}, 'JSON::PP::Boolean'), 
       eFALSE => bless(do{\(my $o = 0)}, 'JSON::PP::Boolean') 
      }; 

Ci sono, in realtà, alcuni motivi per cui dovresti usarlo.

La ragione è che lavorando con JSON, ho 0 e 1 come valori per le chiavi, ma questo hack assicurerà che i valori corretti siano mantenuti lungo lo script.

Answer 7

Mi sono imbattuto in un tutorial che ha una spiegazione chiara su Quali valori sono veri e falsi in Perl.E 'affermare che:

Dopo valori scalari sono considerati falsi:

• undef - il valore indefinito
• 0 il numero 0, anche se si scrive come 000 o 0.0
• '' la stringa vuota .
• '0' la stringa che contiene una singola cifra 0.

Tutti gli altri valori scalari, tra cui sono vere:

• 1 qualsiasi non-0 numero
• ' ' la stringa con uno spazio in esso
• '00' due o più 0 caratteri una stringa
• "0\n" a 0 seguito da una nuova riga
• 'true'
• 'false' sì, anche la stringa "false" viene valutata su true.

C'è un altro buon tutorial che spiega su Perl true and false.

Answer 8

I miei preferiti sono sempre stati

use constant FALSE => 1==0; 
use constant TRUE => not FALSE; 

che è completamente indipendente dalla rappresentazione interna.