O Perl não tem um tipo booleano nativo, mas você pode usar a comparação de números inteiros ou seqüências de caracteres para obter o mesmo comportamento. O exemplo de Alan é uma boa maneira de fazer isso usando comparação de números inteiros. Aqui está um exemplo
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Uma coisa que eu fiz em alguns dos meus programas é adicionar o mesmo comportamento usando uma constante:
#!/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";
}
As linhas marcadas em "use constant" definem uma constante chamada true que sempre é avaliada como 1 e uma constante chamada false que sempre é avaliada por 0. Devido à maneira como as constantes são definidas no Perl, as seguintes linhas de código também falham:
true = 0;
true = false;
A mensagem de erro deve dizer algo como "Não é possível modificar constante na atribuição escalar".
Vi isso em um dos comentários que você perguntou sobre a comparação de strings. Você deve saber que, como o Perl combina sequências e tipos numéricos em variáveis escalares, você tem uma sintaxe diferente para comparar sequências e números:
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";
}
A diferença entre esses operadores é uma fonte muito comum de confusão no Perl.