Bien sur, le Perl permet les branchements if/then/else. En voici un exemple :
if ($a)
{
print "La chaine n'est pas vide\n";
}
else
{
print "La chaine est vide\n";
}
Pour cela, il faut se souvenir qu'une chaîne vide est considérée comme fausse. De même, le nombre zéro est considéré comme faux.
On peut imbriquer d'autres alternatives :
if (!$a) # ! est l'opérateur unaire de négation
{
print "La chaine est vide\n";
}
elsif (length($a) == 1) # Sinon, on essaie ça
{
print "La chaine a un caractère\n";
}
elsif (length($a) == 2) # Sinon, on essaie ça
{
print "TLa chaine a deux caractère\n";
}
else # Et si tout a raté...
{
print "La chaine a beaucoup de caractères\n";
}
Il est important de noter que l'instruction elsif n'a pas de "e".
Trouvez un fichier un peu gros, qui contienne des lignes blanches, et du texte. le fichier ~webk/WWW/Perl/Misc/electricity.txt est un bon exemple, car il est amusant. Il a été envoyés dans les news locales par David O'Brien.
Avec l'excercice précédent, vous avez réalisé un programme qui affiche un fichier de mots de passes, avec avec les numéro de lignes. Maintenant, changez le, de facon à ce que les lignes de numérotation ne soient pas affichées, ni comptées, mais que tout le fichier soit affiché, même les lignes blanches. Rappelez vous qu'une ligne lue d'un fichier contient toujours un retour chariot à la fin.