У Perl немає нативного булевого типу, але ви можете використовувати порівняння цілих чисел або рядків, щоб отримати таку саму поведінку. Приклад Алана - хороший спосіб зробити це, використовуючи порівняння цілих чисел. Ось приклад
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Одне, що я робив у деяких своїх програмах, - це те саме поведінка, використовуючи константу:
#!/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";
}
Рядки, позначені в "константа використання", визначають константу з ім'ям true, яка завжди оцінюється на 1, і константу з ім'ям false, яка завжди оцінюється на 0. Через те, як константи визначені в Perl, також виходять з ладу наступні рядки коду:
true = 0;
true = false;
Повідомлення про помилку повинно сказати щось на зразок "Неможливо змінити константу в скалярному призначенні".
Я бачив це в одному з коментарів, які ви запитували про порівняння рядків. Ви повинні знати, що оскільки Perl поєднує рядки та числові типи у скалярних змінних, у вас є різний синтаксис для порівняння рядків і чисел:
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";
}
Різниця між цими операторами є дуже поширеним джерелом плутанини в Perl.