如何在Perl中向数组添加重复值?

时间:2010-10-05 14:06:34

标签: arrays perl

我有一个数组@genotypes = "TT AG TT AG....",并希望为它添加一个尖峰(例如20 x TT)来制作一个新阵列。

我显然可以push“TT”进入数组20次 - 但有更简单的方法吗? (即不是@newarray = push @genotypes ("TT", "TT", "TT",......20 times!);

3 个答案:

答案 0 :(得分:37)

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

是的,它是x

请参阅Multiplicative Operators in perldoc perlop

答案 1 :(得分:4)

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

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

答案 2 :(得分:3)

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

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