Discussion :

[Tiger-222]

Bonjour,

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

Code :

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

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 :

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

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 :

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

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.

[jean.2edi]

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 :

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

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";
}

[Tiger-222]

Ah nikel !

Merci jean.2edi !!