Transformation d'un array

Bonjour,

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

Code:

---

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:

---

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 !

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:

---

1 2 3 4

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

---

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:

---

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:

---

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

---