Perl nie ma rodzimego typu logicznego, ale można użyć porównania liczb całkowitych lub ciągów, aby uzyskać takie samo zachowanie. Przykład Alana jest dobrym sposobem na to, używając porównania liczb całkowitych. Oto przykład
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Jedną rzeczą, którą zrobiłem w niektórych moich programach, jest dodanie tego samego zachowania przy użyciu stałej:
#!/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";
}
Linie oznaczone jako „użyj stałej” definiują stałą o nazwie prawda, która zawsze ma wartość 1, oraz stałą o nazwie fałsz, która zawsze ma wartość 0. Ze względu na sposób, w jaki stałe są definiowane w Perlu, następujące wiersze kodu również zawodzą:
true = 0;
true = false;
Komunikat o błędzie powinien brzmieć „Nie można zmodyfikować stałej w przypisaniu skalarnym”.
Widziałem to w jednym z komentarzy, które pytałeś o porównywanie ciągów. Powinieneś wiedzieć, że ponieważ Perl łączy ciągi i typy liczbowe w zmiennych skalarnych, masz inną składnię do porównywania ciągów i liczb:
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";
}
Różnica między tymi operatorami jest bardzo powszechnym źródłem nieporozumień w Perlu.