Discussion :

[damiano84]

Bonjour,

J'ai un array avec 17 éléments comme suit :

Code :

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

1
2
 
my @array = qw (value1 value2 ..... value17);

Et je voudrais générer un nouveau array avec chaque élément du @array y figurant 14 fois de cette manière là :

Code :

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

1
2
 
my @new_array = qw (value1 value1 .... value1 value2 value2 ... value2 ................ value17 value17 ... value17);

C'est quoi la manière la plus rapide et la plus élégante de la faire en perl ? (utilisation de map p-e ?)

Merci d'avance pour votre aide !

[damiano84]

Je fais ça et ça donne le résultat attendu mais je me demandais s'il y avait un moyen sur perl sans passer par des loops :

Code :

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

1
2
3
4
 
my @new_array = ();
 
foreach $element (@array) {push(@new_array,(map $element,(1..14)));}

[Lolo78]

Bonjour,

je ne peux pas tester la syntaxe maintenant sur ma tablette, mais peut-être l'utilisation d'un map et de l'opérateur de répétition, quelque chose comme ça:

Code :

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

1
2
 
my @new_array = map {  ($_) x 14 } @array;

Ou peut-être un map imbriqué (pas testé non plus pour la même raison):

Code :

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

1
2
 
my @new_array = map { my $c = $_; map {$c} for 1..14 } @array;