merge two arrays with index in one array and values in another perl

Question

How can I merge two arrays together as an associative manner; one array having the key column names, and the other the values?

I have tried to push one array upon the other, put only appends them as a list, does not associate them together. Any help would be greatly appreciated it. Thanks!

my @var1 = {'COL1', 'COL2', 'COL3'};
my @var2 = {  '1' ,  '2'  , '3'   };

...

new array %var3 = {'COL1' => '1', 'COL2' => '2', 'COL3' => '3'}

score 3 · Accepted Answer · answered Dec 22 '14 at 21:39

3

With hash slices:

my %var3;
@var3{ @var1 } = @var2;

answered Dec 22 '14 at 21:39

Jim Davis

4,838
1
25
22

Thanks, this works perfectly! – Luis Berumen Dec 22 '14 at 21:46
@LuisBerumen If the above answer solves your problem you should accept the answer and if there is any additional information or an alternative solution then you can share that with fellow members. – Rahul Sharma Dec 22 '14 at 22:02

score 3 · Answer 2 · edited Dec 23 '14 at 07:01

3

First some comments. Arrays use simple parentheses ( and ).

And you can construct the hash with a hash slice:

my @keys = ('COL1', 'COL2', 'COL3');
my @values = ( '1' , '2' , '3' );

my %hash ;
@hash{@keys} = @values ;

This gives the desired hash you wanted.

edited Dec 23 '14 at 07:01

Borodin

125,056
9
69
143

answered Dec 22 '14 at 21:40

dgw

12,645
11
55
51

merge two arrays with index in one array and values in another perl

2 Answers2