Come uso le variabili booleane in Perl?

Question

Ho provato:

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

Nessuno di questi lavori. Ricevo il messaggio di errore

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

Answer 1

In Perl, quanto segue viene valutato falso in condizionali:

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

Il resto è vero. Non ci sono password per true o false .

Answer 2

La definizione più completa e concisa di falso che ho incontrato è:

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

Pertanto, i seguenti valori sono falsi:

• La stringa vuota
• Valore numerico zero
• Un valore non definito
• Un oggetto con un operatore booleano sovraccarico che valuta uno dei precedenti.
• Una variabile magica che valuta uno dei precedenti su fetch.

Tieni presente che un elenco vuoto letterale valuta un valore indefinito nel contesto scalare, quindi valuta qualcosa di falso.

---

Una nota su " zero reali "

Mentre i numeri che si stringono in 0 sono falsi, le stringhe che si numerano in zero non lo sono necessariamente. Le uniche stringhe false sono 0 e la stringa vuota. Qualsiasi altra stringa, anche se numera a zero, è vera.

Le seguenti sono stringhe che sono vere come un valore booleano e zero come un numero.

• Senza preavviso:
  • " 0.0 "
  • " 0E0 "
  • " 00 "
  • " + 0 "
  • " -0 "
  • " 0 "
  • " 0 \ n "
  • " .0 "
  • " 0 "
  • " 0 ma true "
  • " \ T00 "
  • " \ n0e1 "
  • " + 0.e-9 "
• Con un avviso:
  • Qualsiasi stringa per la quale Scalar :: Util :: looks_like_number restituisce false. (ad es. " abc " )

Answer 3

Perl non ha un tipo booleano nativo, ma puoi usare il confronto di numeri interi o stringhe per ottenere lo stesso comportamento. L'esempio di Alan è un bel modo di farlo usando il confronto di numeri 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 è stata aggiunta lo stesso comportamento usando 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 "utilizzano la costante" definire una costante denominata true che restituisce sempre 1 e una costante denominata false che valuta sempre per 0. A causa del modo in cui le costanti sono definite in Perl, anche le seguenti righe di codice falliscono:

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 hai chiesto di confrontare le stringhe. Dovresti sapere che, poiché Perl combina stringhe e tipi numerici in variabili scalari, hai una sintassi diversa per confrontare 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 di confusione molto comune in Perl.

Answer 4

Raccomando usa booleano; . Devi installare il booleano da cpan però.

Answer 5

I miei preferiti sono sempre stati

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

che è completamente indipendente dalla rappresentazione interna.

Answer 6

Mi sono imbattuto in un tutorial che ha una buona spiegazione di Quali valori sono veri e falsi in Perl . Si afferma che:

I seguenti valori scalari sono considerati falsi:

• undef - il valore non definito
• 0 il numero 0, anche se lo scrivi come 000 o 0.0
• '' la stringa vuota.
• '0' la stringa che contiene una singola cifra 0.

Tutti gli altri valori scalari, inclusi i seguenti, sono veri:

• 1 qualsiasi numero diverso da 0
• '' la stringa con uno spazio al suo interno
• '00' due o più 0 caratteri in una stringa
• " 0 \ n " uno 0 seguito da una nuova riga
• 'vero'
• 'false' sì, anche la stringa 'false' restituisce true.

Esiste un altro buon tutorial che spiega Perl true and falso .

Answer 7

Bella spiegazione fornita da bobf per i valori booleani: Vero o falso? Una guida di riferimento rapido

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 8

usa il seguente prefisso di file, questo aggiungerà al tuo script perl eTRUE ed eFALSE, in realtà sarà 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' )
             };

In realtà, ci sono alcuni motivi per cui dovresti usarlo.

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