在Perl中，是否可以按位置使用另一个阵列位置来转换数组？

Question

我有值的数组，我想用另一个数组转换它，像这样

@raw_values  = qw(10 20 30 40); 

@adjustment_factors = qw(1 2 3 4); 


#the expected value array 
@expected_values = qw(10 40 90 160); 

有没有这样做，那么这更Perlish的方法吗？

for my $n (0..$#raw_values){ 
    $expected_values[ $n ] = $raw_values[ $n ] * $adjustment_factors[ $n ] 
} 

数组总是有相同数量的元素，我有几千个进程。

Answer 1

使用map：

@expected_values = map { $raw_values[$_] * $adjustment_factors[$_] } 0 .. $#raw_values; 

另一种选择是，先分配初始值，然后对其进行修改：

@expected_values = @raw_values; 
$x = 0; 
$_ *= $adjustment_factors[$x++] for @expected_values; 

或者，如果你不需要@adjustment_factors了，你可以清空：

@expected_values = map { $_ * shift @adjustment_factors } @raw_values; 

Answer 2

pairwise是更多惯用的，CPAN解决方案。

use List::MoreUtils qw<pairwise>; 

my @expected_values = pairwise { $a * $b } @raw_values, @adjustment_factors; 

见List::MoreUtils