Soucis de concaténation

Bonjour,

Voici un exemple de code qui expliquera mieux ce que je souhaite :

Code:

---

1 2 3 4 5 6

my ($arg1, $arg2, $arg3, $arg4, $arg5) = split /---/, $args;   for ( my $k = 1; $k <= 5; $k++ ) { my ($argument, $valeur) = split /;;/, "arg".$k; }

---

En fait $args est tel que :

Code:

---

1 2	<argument_1>;;<valeur_1>---(...)---<argument_5>;;<valeur_5>

---

Et le soucis se trouve dans la boucle for, je souhaite traiter l'argument actuel, donc en théorie pour le 1er passage, $arg1.

Et je n'arrive pas à récupérer la valeur de $arg1; j'ai tenté comme dans l'exemple en faisant :

Code:

---

1 2

"arg".$k

---

Mais ça me retourne arg1, arg2, etc.

Comment m'y prendre ? Sachant que dans l'exemple il y a 5 arguments, mais en réalité le nombre est variable.

Tu pourrais utiliser eval mais c'est un contournement. Ce dont tu as besoin c'est un tableau bien sûr, ou une liste !!! Pourquoi définir 5 variables alors que tu peux utiliser un tableau de 5 ! (Et imagine si tu as 50 arguments...)

Code:

---

1 2 3 4 5 6 7 8 9

$args = "<argument_1>;;<valeur_1>---<argument_2>;;<valeur_2>---<argument_3>;;<valeur_3>---<argument_4>;;<valeur_4>---<argument_5>;;<valeur_5>";   my (@args) = split /---/, $args;   for $arg (@args) { my ($argument, $valeur) = split /;;/, $arg; print "$argument = $valeur\n"; }

---

Ah nikel !

Merci jean.2edi !!