Perl tidak memiliki tipe boolean asli, tetapi Anda dapat menggunakan perbandingan bilangan bulat atau string untuk mendapatkan perilaku yang sama. Contoh Alan adalah cara yang baik untuk melakukannya dengan menggunakan perbandingan bilangan bulat. Ini sebuah contoh
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Satu hal yang saya lakukan di beberapa program saya adalah menambahkan perilaku yang sama menggunakan konstanta:
#!/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";
}
Baris yang ditandai dalam "use constant" mendefinisikan konstanta bernama true yang selalu mengevaluasi ke 1, dan konstanta bernama false yang selalu dievaluasi oleh 0. Karena cara konstanta didefinisikan dalam Perl, baris kode berikut juga gagal:
true = 0;
true = false;
Pesan kesalahan harus mengatakan sesuatu seperti "Tidak dapat mengubah konstan dalam tugas skalar."
Saya melihat bahwa di salah satu komentar Anda bertanya tentang membandingkan string. Anda harus tahu bahwa karena Perl menggabungkan string dan tipe numerik dalam variabel skalar, Anda memiliki sintaks berbeda untuk membandingkan string dan angka:
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";
}
Perbedaan antara operator ini adalah sumber kebingungan yang sangat umum di Perl.