Как добавить повторяющиеся значения в массив в Perl?

Question

У меня есть массив @genotypes = "TT AG TT AG....", и я хочу добавить к нему пик (например, 20 x TT) для создания нового массива.

Я могу, очевидно, push "TT" в массив 20 раз - но есть ли более простой способ сделать это? (т.е. не @newarray = push @genotypes ("TT", "TT", "TT",......20 times!);

Answer 1

@newlist = (@genotypes, ('TT') x 20);

Да, это x.

См. Мультипликативные операторы в perldoc perlop .

Answer 2

Оператор повторения является наиболее очевидным способом.
Вы также можете использовать map:

@newarray = (@genotypes, map 'TT', 1..20);

Answer 3

Существует также способ foreach отправки нескольких одинаковых значений в массив:

push @newarray, 'TT' foreach (1..20);