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 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 è l'aggiunta dello 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 righe contrassegnate in "usa costante" definiscono 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 dire 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.