在Perl中添加数组的更好方法是什么？

Question

码

use List::MoreUtils 'pairwise'; # http://stackoverflow.com/a/1865966/54964
my @offset = (0.28)x scalar(@x); # http://www.perlmonks.org/?node_id=110603
my @x = pairwise { $a + $b } @x, @offset;

我希望通过默认工具找到更好的方法.

有没有更好的方法在Perl中添加数组？

Answer 1

这里不需要成对数组求和:这是一个问题,您可以选择创建与原始数组一样大的第二个数组(至少使程序的内存占用量增加一倍).

你所做的只是为每个元素添加一个常量@x.使用for循环:

$_ += 0.28 for @x;