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

Structure de Contrôle: Exemple de l’opérateur ternaire

 
 #!/usr/local/bin/perl -w
 
print "Tapez un nombre: ";
$line=<STDIN>;
 
# Vérifier si un nombre est

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..........

Structure de contrôle: Exemple d’un bloc nu

#!/usr/bin/perl -w
 
# Le bloc nu exécute une seule fois son contenu
# et limite la portabilités de s

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 de structure de répétition do…while

 
$compteur = 1;
 
do
{
   print "Compteur= $compteur ";
} while ( ++$compteur < 100 );
 
print "Termi

Exemple d’utilisation d’une boucle do…until

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

Trouver les répétitions dans un groupe de mots

#!/usr/bin/perl
 
my @analog = qw{ perl avec java est efficace mais perl avec python est moins efficace que python

Exemple d’utilisation d’une boucle ‘for’

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