Perl hat keinen nativen booleschen Typ, aber Sie können Ganzzahlen oder Zeichenfolgen vergleichen, um das gleiche Verhalten zu erzielen. Alans Beispiel ist eine gute Möglichkeit, dies durch den Vergleich von ganzen Zahlen zu tun. Hier ist ein Beispiel
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Eine Sache, die ich in einigen meiner Programme getan habe, ist das gleiche Verhalten unter Verwendung einer Konstante:
#!/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";
}
Die unter "Konstante verwenden" markierten Zeilen definieren eine Konstante mit dem Namen true, die immer mit 1 ausgewertet wird, und eine Konstante mit dem Namen false, die immer mit 0 bewertet wird. Aufgrund der Art und Weise, wie Konstanten in Perl definiert werden, schlagen auch die folgenden Codezeilen fehl:
true = 0;
true = false;
Die Fehlermeldung sollte etwa "Konstante in Skalarzuweisung kann nicht geändert werden" lauten.
Ich habe das in einem der Kommentare gesehen, die Sie zum Vergleichen von Zeichenfolgen angefordert haben. Da Perl Zeichenfolgen und numerische Typen in skalaren Variablen kombiniert, sollten Sie wissen, dass Sie unterschiedliche Syntax zum Vergleichen von Zeichenfolgen und Zahlen haben:
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";
}
Der Unterschied zwischen diesen Operatoren ist eine sehr häufige Quelle der Verwirrung in Perl.