array de array

Bonjour,

J'ai un array de array (@transposed) et j'aimerai ajouter en son milieu un array, tout en décalant les array suivants.
Je ne sais pas si c'est clair. Voici mon code :

Code:

---

1 2 3 4

for my $c (0..$#{$transposed[15]}){ my $StdInChIKey = $transposed[15][$c] ; $transposed[16][$c] =$correspondences{$StdInChIKey}; }

---

J'aimerais donc, en fonction des valeurs de @{$transposed[15]}, ajouter un array @{$transposed[16]}. Existant déjà des array 16, 17, 18 ... je voudrais les décaler, afin de ne pas écraser @{$transposed[16]}.
Je suppose que je dois passer par un autre tableau (array de array ex : @transposed_bis), que je recrée en recopiant @transposed. N'hésitez pas à me poser des questions pour plus de clareté.

D'avance merci pour votre aide,

Jasmine.

Bonjour Jasmine,

utilise la fonction splice pour ajouter des éléments à ton tableau extérieur. Exemple sous le débogueur:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

DB<1> @a = (1, 2, 3, [4, 5], [6, 7], [10, 11]);   DB<2> x \@a 0 ARRAY(0x600500b90) 0 1 1 2 2 3 3 ARRAY(0x60005f160) 0 4 1 5 4 ARRAY(0x6005009e0) 0 6 1 7 5 ARRAY(0x600500938) 0 10 1 11   DB<3> splice @a, 4, 1, $a[4], [8, 9];   DB<4> x \@a 0 ARRAY(0x600500b90) 0 1 1 2 2 3 3 ARRAY(0x60005f160) 0 4 1 5 4 ARRAY(0x6005009e0) 0 6 1 7 5 ARRAY(0x600508fe8) 0 8 1 9 6 ARRAY(0x600500938) 0 10 1 11 DB<5>

---

Ici, j'ai remplacé l'élément numéro 4 du tableau par deux éléments, $a[4] (l'élément supprimé) et une référence à un nouveau tableau. La suite a bien été décalée (l'élément $a[5] est devenu $a[6]). Pas besoin, donc, de créer une copie intermédiaire du tableau, Perl le fait tout seul comme un grand.

Bonne soirée,
Laurent.

Merci Lolo, je vais y regarder.