在perl中合并标量数组引用

Question

我有一个像这样的数据结构：

$hashRef->{"key1"}->{"key2"} = ['1','2','3']

$hashRef在for循环的每次迭代中获取新值。 我试图将所有这些附加到生成这样的输出：

$hashRef->{"key1"}->{"key2"} = ['loop1.out1','loop1.out2','loop1.out3','loop2.out1','loop2.out2','loop2.out3',...]

loop1.ou1是循环1的第一个输出的符号，不打算打印。

这可能吗？

Answer 1

您可以使用push将新值附加到数组：

push( @{$hashRef->{"key1"}->{"key2"}}, 'loop1.out1','loop1.out2','loop1.out3');
$aData = [ 'loop2.out1','loop2.out2','loop2.out3' ];
push( @{$hashRef->{"key1"}->{"key2"}}, @$aData);
print join(",",@{$hashRef->{"key1"}->{"key2"}} ),"\n";

Answer 2

希望这是您想要的：

map {
      push(@{$hashRef->{"key1"}->{"key2"}}, "loop$count.out".$_);      
    } @{$arr2};

$ count是循环号。 @ {$ arr1}是传入数组。

谢谢，

Anoop