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

Question

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

console.log

是否可以使用单行命令（例如“ 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];