« Programmation Perl/Itérations » : différence entre les versions

Contenu supprimé Contenu ajouté
mAucun résumé des modifications
Ligne 17 :
==== exemples ====
<source lang="perl" line >
# while
my @fruits = qw/ cerise pomme pastèque /;
while( @fruits ) # une fois la liste @fruits vide, l'expression sera évaluée fausse
{
say pop @fruits; # rappel : pop supprime le dernier élément et le retourne
}
 
# until
@fruits = qw/ cerise pomme pastèque /;
until ( !(@fruits) ) # liste vide = faux, !faux = vrai, until s'arrête
{
say pop @fruits; # pastèquepommecerise
}
</source>