Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Exemple d’utilisation d’un bloc ‘continue’ lié à ue boucle

#!/usr/bin/perl -w
 
$i = 0;
 
while ($i < 10)
 {
   print "Iteration $i.n";
 
} continue
{

Entrez dans une boucle infinie avec ‘for’

 
    #!/usr/local/bin/perl -w
 
    for (;;)
    {
       print "Vous entrez dans un cycle..........

Parcourir un ‘Hash’ à l’aide des boucles ‘while’ et ‘each’

#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',

Itérer un tableau à l’aide d’un boucle

#!/usr/bin/perl
 
@tab = (1, 2, 3, 4, 5);
 
foreach $elem (@tab)
{
    $elem--;   #Soustraire 1 dans c

Utilisation de la boucle ‘for’ en mode ‘foreach’

 
#!C:/perl/bin
 
for (1..10)
{
 print "$_ pas!n";
}

Structure de contrôle: Trouver les nombres pairs à l’aide d’une boucle do…while et ‘next if’

#!/usr/bin/perl
 
use warnings;
use strict;
 
my $x = 0;
# Trouver les nombres pairs entre 0 et 1000

Exemple d’utilisation d’une boucle do…until

#! /usr/bin/perl#
 
$compteur = 100;
 
do
{
   print "Compteur= $compteurn";
} until ( --$compteur ==

Boucle: Afficher les lettres de l’alphabet

#!/usr/local/bin/perl
 
use strict;
 
for my $lettre('a'..'z','A'..'Z')   #En minuscule et majuscule

Exemple d’utilisation d’une boucle ‘for’

#!/usr/local/bin/perl
 
for ($i = 1; $i <= 10; $i++)
{
  print "$i pasn";
}

Arrêt immédiat d’une boucle avec l’opérateur ‘last’

#!/usr/bin/perl
################## last #############
# l'opérateur 'last' est l'équivalent de
# l'o