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];