Discussion :

[Yodestarn]

Bonjour,

J'ai recontré un problème lorsque je programmais un logiciel qui permettait de calculer une fonction mathématique passée en argument avec une intervalle donnée.

Le problème est au niveau d'une boucle for.
Voici la boucle en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for(my $i = 0; $i < $max_intervalle; $i++)) {
                $result = faire_operations($i, @expression_mathematique);
                print 'f(' . $i . ')=' . $resultat . "\n";
      }

Je voudrais incrémenter $i avec une variable $saut. Je voudrais donc pouvoir faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for(my $i = 0; $i < $max_intervalle; $i + $saut)) {

Cette syntaxe donne lieu a des comportements énigmatiques. Est-ce impossible de réaliser cela en Perl ? Ou alors y a t-il une syntaxe spéciale ?

Je pourrais utiliser une boucle while mais elle ne correspond pas au traitement effectué.

Merci de votre lecture.

[Philou67430]

La syntaxe correcte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for(my $i = 0; $i < $max_intervalle; $i += $saut)) {

Une manière plus "perlish" (mais je le concède, moins lisible quand il s'agit d'une boucle à pas différent de 1 ; pour des pas de 1, utiliser l'opérateur d'intervalle seul) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach my $i (map $_ * 5, 0 .. ($max_intervalle-1)/$saut) {

Avec la boucle initiale, cela aurait donné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach my $i (0 .. $max_intervalle-1) {

qui présente l'avantage de ne générer aucun calcul sur i (source d'erreur), et qui affiche clairement au lecteur la valeur des bornes de $i.

[Yodestarn]

Les deux autres propositions me paraissent obscures... Je vais devoir quitter mes vieilles habitudes C.

Merci pour tout.

[Philou67430]

Pour traiter des listes d'éléments en perl, il généralement possible de se passer du traitement de l'index, en utilisant directement un itérateur sur les valeurs du tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my @prenoms = ("toto", "tutu", "titi");
foreach my $prenom (@prenoms) {
  # traitement de $prenom
}

S'il est absolument nécessaire d'utiliser l'indice, par exemple, pour traiter deux tableaux en parallèle, il est alors possible d'utiliser un itérateur sur une liste d'indice, liste construite à partir de l'opérateur d'intervalle .. (point point).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my @prenoms = qw(toto tutu titi);
my @noms = qw(momo mumu mimi);
foreach my $index (0 .. $#prenoms) { # ou bien 0 .. @prenoms-1
  # traitement de $prenoms[$index] et $noms[$index]
}

On peut aussi, dans ce cas, tirer avantageusement parti du module List::MoreUtils, et de sa fonction pairwise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my @noms_prenoms = pairwise {
  # traitement de $a et $b contenant chaque élément de @prenoms et @noms
  "$b $a";
} @prenoms, @noms;

ou bien l'itérateur each_array:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my $ea = each_array(@prenoms, @noms);
while ( my ($prenom, $nom) = $ea->() ) {
  # traitement de $prenom et $nom
}

Pour finir, ton cas concernait le traitement d'un indice sur $saut.
Dans ma proposition, j'ai utiliser un itérateur d'index basé sur des indices multiples de $saut de la manière suivante :
- construction d'une liste d'indice allant de 0 à la moitié de l'index max :
0 .. ($indice_max-1)/$saut)
- et pour chaque indice, celui-ci est multiplié par $saut pour obtenir une liste : 0, $saut, 2*$saut, ... ; ceci en utilisant l'opérateur map :
map $_ * $saut

Mais on peut aussi utiliser la fonction indexes du module List::MoreUtils :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach my $i (indexes { $_ % $saut == 0 } 0 .. $max_intervalle-1) {

En espérant avoir été plus clair