Archive for the ‘Structure de Contrôle’ Category

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


{filelink=15267}

 
 #!/usr/local/bin/perl -w
 
print "Tapez un nombre: ";
$line=<STDIN>;
 
# Vérifier si un nombre est pair ou impair
print (($line % 2)?"Nombre impair":"Nombre pair");

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

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


{filelink=15253}

#!/usr/bin/perl -w
 
$i = 0;
 
while ($i < 10)
 {
   print "Iteration $i.n";
 
} continue
{                # Ce bloc s'exécute avant l'évaluation suivante
				 # suivante de $i.
   $i++;
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Entrez dans une boucle infinie avec ‘for’


{filelink=15264}

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

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

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

 calcul
{filelink=15259}

#!/usr/bin/perl -w
 
# Le bloc nu exécute une seule fois son contenu
# et limite la portabilités de ses variable.
{
  print "Tapez un nombre: ";
  chomp(my $n = <STDIN>);              #Lire l'entrée clavier
  my $root = sqrt $n;  # calculer la racine carrée
  print "La racine carrée de $n est $root.n";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

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


{filelink=15265}

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

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

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


{filelink=15260}

#!/usr/bin/perl
 
use warnings;
use strict;
 
my $x = 0;
# Trouver les nombres pairs entre 0 et 1000
do {
  {
    next if ($x % 2);
    print $x, "n";
  }
} while ($x++ < 100);

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple de structure de répétition do…while


{filelink=15258}

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

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple d’utilisation d’une boucle do…until


{filelink=15256}

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

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

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


{filelink=15262}

 
#!/usr/bin/perl
 
 
my @analog = qw{ perl avec java est efficace mais perl avec python est moins efficace que python avec java };
my %deja_vu;
@new_data=();
foreach (@analog) {
  print "J'ai déjà vu ce mot, $_!\n"
   if $deja_vu{$_}++;
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple d’utilisation d’une boucle ‘for’


{filelink=15263}

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

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]