如何在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。

请参阅Multiplicative Operators in perldoc perlop。

Answer 2

重复算子是最明显的方式 您也可以使用map：

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

Answer 3

还有foreach方法将多个相同的值推送到数组：

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