Sinon si et Sinon

Il est possible de tester plusieurs conditions et de n'engager une action qu'à la premiere condition rencontrée. Par exemple :

while($choice ne "0")
{ # affiche un prompt en boucle
        print("$prompt");
        $choice = <STDIN>;
        chop($choice);
        if($choice eq "1")
        {
                &menu;
        }
        elsif($choice eq "3")
        {
                &ajoute;
        }
        elsif($choice eq "2")
        {
                &titre;
        }
        elsif($choice eq "4")
        {
                &plcd;
        }
        elsif($choice eq "5")
        {
                &supp_line;
        }
        elsif($choice eq "6")
        {
                &modify;
        }
}

Cette portion de code montre comment afficher un prompt et de ne déclencher une action (faire appel à un sub) que si l'utilisateur a rentré une donnée qui répond vrai à une des conditions.

On voit aussi l'utilisation d'une condition dans while qui permet de sortir de la boucle (ne plus afficher le prompt) si l'utilisateur rentre une donnée particulière.