Section courante

A propos

Section administrative du site

FOREACH

Pour chaque
Perl
 

Syntaxe

foreach variable (variableliste) {
   instruction;
}

Paramètres

Nom Description
variable Ce paramètre permet d'indiquer la variable allant recevoir chacune des données
variableliste Ce paramètre permet d'indiquer le tableau à traiter
instruction Ce paramètre permet d'indiquer les instructions à exécuté dans la boucle

Description

Ce mot réservé permet de produire un compteur de boucle sur chacun des éléments.

Exemples

Voici un exemple permettant d'aller sortir la liste d'un tableau envoyé comme paramètre dans le champs «List» dans un tableau associatif :

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4.  
  5. my (@List) = ({'id' => 'c0','nom' => 'Mon premier'},{'id' => 'c1','nom' => 'Mon deuxieme'});
  6. my ($champs1,$champs2);
  7. my $aryhash = {'Champs1' => $champs1, 'Champs2' => $champs2, 'List' => \@List};
  8. foreach(@{$aryhash->{'List'}}) {
  9.    print '{"'.$_->{'id'}.'","'.$_->{'nom'}.'"}';
  10. }

on obtiendra le résultat suivant :

{"c0","Mon premier"}{"c1","Mon deuxieme"}

Voici un exemple d'afficher chacun des utilisateurs dans un tableau à l'aide de l'instruction «foreach» :

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4.  
  5. my %users = ("smaltais","Sylvain Maltais","root","Administrateur","stremblay","Steve Tremblay");
  6.  
  7. foreach my $user (keys %users) {
  8.    print "$user => $users{$user}\n";
  9. }

on obtiendra le résultat suivant :

stremblay => Steve Tremblay
smaltais => Sylvain Maltais
root => Administrateur

Références

La Bible Micro Application HTML & Développement Web, Stefan Munz, Wolfgang Nefzger, 2003, ISBN: 2-7429-2898-7, page 1049
Perl/CGI-Programmation avancée Grand Livre, Edition Micro Application, Rolf D. Stoll, 2001, ISBN: 2742919082, page 163

Dernière mise à jour : Dimanche, le 18 octobre 2015