Discussion :

[fedjo]

Bonjour tout le monde,

Je vous explique, j'ai une portion de code qui se répète, comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function ("meme_chaine_de_cacarteres_1");
%v_1 = %v;
$d_1 = $d;
$d= 0;
 
function ("meme_chaine_de_cacarteres_2");
%v2 = %v;
$d2 = $d;
$d= 0;
 
function ("meme_chaine_de_cacarteres_3");
%v3 = %v;
$d3 = $d;
$d= 0;

Et j'aimerais faire une boucle de façon à ce que le code ne se répète pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$i=1
 
while ($i < 4)
 
{
function ("meme_chaine_de_cacarteres_$i");
%v$i = %v; # SYNTAXE INCORRECTE
$d$i = $d; # SYNTAXE INCORRECTE
$d= 0;
 
$i++;
}

C'est ce que j'aimerais faire, quelqu'un sait-il s'y prendre, ça m'aidera dans mon travail..

Merci à tous

[Norore]

Bonjour,

si tu utilises une fonction pour faire un traitement spécifique, pourquoi ne pas retourner une chaîne de caractère que tu parses à coup d'expression régulière afin de récupérer tes informations ? Ce serait plus simple, non ?

Surtout que pour trois lignes de code, ça ne devrait pas peser très lourd !

[Philou67430]

Bien que perl autorise ce que tu souhaites faire (nommage dynamique de variable), ce n'est pas une technique recommandée. Pire, si tu utilise "use strict", ce qui est fortement recommandé, c'est carrément interdit. Ainsi, je ne vais pas te donner la syntaxe exacte pour utiliser cette technique, mais t'inviter plutôt à utiliser un hash :

Code :

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

1
2
3
4
5
6
7
my (%v_all, %d_all);
foreach my $i (1 .. 4) {
  function ("meme_chaine_de_cacarteres_$i");
  %{$v_all{$i}} = %v;
  $d_all{$i} = $d;
  $d= 0;
}

Ce nouveau code tu adapteras.

[Dimitry.e]

Ce que tu fais est possible à condition de ne pas utiliser use strict et my. Ce qui n'est pas du tout recommandé.

Exemple (que je ne cautionne pas) :

Code :

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

1
2
3
4
 
$i2 = 12;
$j = "i2";
print $$j, "\n";

Mais pourquoi ne pas créer une autre routine en lui passant des références sur les variables à traiter ?

Code :

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

1
2
3
4
5
6
7
8
 
sub f {
  my ($s, $vi, $di, $v, $d) = @_;
  function ($s);
  %$vi = %$v;
  $$di = $$d;
  $$d = 0;
}