如何在Perl中向數組添加重複值？

Question

我有一個數組@genotypes = "TT AG TT AG...."和想要的尖峯添加到它（例如20×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

還有PU的foreach方式將多個相同的值與一個數組進行比較：

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