Perl n'a pas de type booléen natif, mais vous pouvez utiliser la comparaison d'entiers ou de chaînes afin d'obtenir le même comportement. L'exemple d'Alan est une belle façon de le faire en utilisant la comparaison d'entiers. Voici un exemple
my $boolean = 0;
if ( $boolean ) {
print "$boolean evaluates to true\n";
} else {
print "$boolean evaluates to false\n";
}
Une chose que j'ai faite dans certains de mes programmes est d'ajouter le même comportement en utilisant une 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";
}
Les lignes marquées "use constant" définissent une constante nommée true qui évalue toujours à 1 et une constante nommée false qui évalue toujours par 0. En raison de la façon dont les constantes sont définies en Perl, les lignes de code suivantes échouent également:
true = 0;
true = false;
Le message d'erreur doit dire quelque chose comme «Impossible de modifier la constante dans l'affectation scalaire».
Je l'ai vu dans l'un des commentaires que vous avez demandé sur la comparaison des chaînes. Vous devez savoir que parce que Perl combine des chaînes et des types numériques dans des variables scalaires, vous avez une syntaxe différente pour comparer les chaînes et les nombres:
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";
}
La différence entre ces opérateurs est une source de confusion très courante en Perl.