Simulation de booléen

Il n'y a pas de variable de type booléen, mais on peut facilement utiliser à la place une variable numérique. En effet toute expression en situation de test (conditionnelle, boucle) valant 0 ou 0 ou undef est considérée comme fausse, toute autre valeur est considéré comme vraie !

#!/usr/bin/perl -w 
# bool.pl 
$trouve=0; 
$n=0; 
while (!$trouve) { print "$n\n"; 
$n++; $trouve = 1 if $n==100; }