perl：将一个数组复制到另一个数组（多维）

Question

我有一个代码，使用for循环将一个数组的几个元素复制到另一个数组，如下所示

for $count_val (0..($TOTAL_CNT_VAL-1)) {
      $me->{arr1}[$count_val]{cpu} = $me->{arr2}[$count_val];  
}

有什么方法可以使用单行命令（例如“ push”或类似的东西）来实现相同的目的？

Answer 1

后缀for是一个小更简洁

$me->{arr1}[$_]{cpu} = $me->{arr2}[$_] for 0..$TOTAL_CNT_VAL-1;

Answer 2

use 5.18.2;
use strict ;
use warnings ;
use Data::Dumper;
$me->{arr1}[$_]{cpu} = @me->{arr2}[$_][0..$TOTAL_CNT_VAL-1];