Perl yerel bir boolean tipine sahip değildir, ancak aynı davranışı elde etmek için tamsayıların veya dizelerin karşılaştırmasını kullanabilirsiniz. Alan'ın örneği, tamsayıların karşılaştırmasını kullanarak bunu yapmanın güzel bir yoludur. İşte bir örnek
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Bazı programlarımda yaptığım bir şey, bir sabit kullanarak aynı davranışı eklenir:
#!/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";
}
"Use constant" ile işaretlenen satırlar, her zaman 1 olarak değerlendirilen true adında bir sabit ve her zaman 0 ile değerlendirilen false adında bir sabit tanımlar. Perl'de sabitlerin tanımlanma biçimi nedeniyle, aşağıdaki kod satırları da başarısız olur:
true = 0;
true = false;
Hata iletisi, "Skaler atamada sabit değiştirilemiyor" gibi bir şey söylemelidir.
Bunu dizelerden karşılaştırmayı sorduğunuz yorumlardan birinde gördüm. Bilmelisiniz ki Perl, dizeleri ve sayısal türleri skaler değişkenlerde birleştirdiğinden, dizeleri ve sayıları karşılaştırmak için farklı sözdizimine sahipsiniz:
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";
}
Bu operatörler arasındaki fark Perl'de çok yaygın bir karışıklık kaynağıdır.