Si et tant que

Concernant la boucle while reprenons tout simplement l'exemple donné dans un autre chapitre et utilisé pour lire le contenu d'un fichier, cet exemple présente l'avantage de montrer aussi une application de if :

#!/usr/bin/perl

use strict;
my $file = "hello_world.pl";
if(open(IN,"<$file"))
{
    while(<IN>)
    {
        print $_;
    }
    close(IN);
}
else
{
    die "Can not read $file $!\n";
}

Nous commençons par écrire le type de boucle ou de condition utilisée, puis mettons la condition entre parenthèse, tout ce qui est entre les accolades est lancé si ou tant que la condition est respectée. Les commande until et unless sont utilisées exactement de la même façon, mais servent exactement au contraire, c'est à dire qu'au lieu de tester si une condition est vraie, ils testent si elle est fausse.