如何在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);