在perl中合并标量数组引用

Question

I have a datastructure like:

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

This $hashRef gets new values every iteration of the for loop. I am trying to append all of these to produce an output like so:

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

loop1.ou1 is symbolic for the first output from loop 1 and not intended to be printed.

Is this possible?

Answer 1

You may use push to append new values to the array:

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

Hope this is what you want:

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

$count is the loop number. @{$arr1} is the incoming array.

Thanks,

Anoop