Perl không có kiểu boolean riêng, nhưng bạn có thể sử dụng so sánh các số nguyên hoặc chuỗi để có cùng hành vi. Ví dụ của Alan là một cách hay để làm điều đó bằng cách sử dụng so sánh các số nguyên. Đây là một ví dụ
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Một điều mà tôi đã thực hiện trong một số chương trình của mình được thêm vào cùng một hành vi bằng cách sử dụng hằng số:
#!/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";
}
Các dòng được đánh dấu trong "hằng số sử dụng" xác định hằng số có tên true luôn luôn ước tính là 1 và hằng số có tên false luôn luôn đánh giá bằng 0. Do cách các hằng số được định nghĩa trong Perl, các dòng mã sau cũng thất bại:
true = 0;
true = false;
Thông báo lỗi sẽ có nội dung như "Không thể sửa đổi hằng số trong gán vô hướng."
Tôi thấy rằng trong một trong những ý kiến bạn hỏi về việc so sánh các chuỗi. Bạn nên biết rằng vì Perl kết hợp các chuỗi và kiểu số trong các biến vô hướng, nên bạn có cú pháp khác nhau để so sánh các chuỗi và số:
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";
}
Sự khác biệt giữa các toán tử này là một nguồn gây nhầm lẫn rất phổ biến trong Perl.