如何在Perl中将重复值添加到数组中？

Question

23

我有一个数组@genotypes = "TT AG TT AG...."，想要在其中添加一些条目（例如20次TT），以创建一个新数组。

显然，我可以使用push命令将"TT" 重复推入数组20次 - 但是是否有更简单的方法来完成这个任务呢？（即不用 @newarray = push @genotypes ("TT", "TT", "TT",......20 times!);

- jane

3个回答

6

重复运算符是最明显的方法。
你也可以使用map:

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

- Eugene Yarmash

4

还有一种使用foreach将多个相同值添加到数组中的方式：

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

- plusplus

2

而较短的形式是 push @newarray, 'TT' for (1..20);。 - dawg

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- eumiro · Accepted Answer

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

是的，它是一个x。