read_row

Input

1. $headers_ref - array ref:

   word

   global_monthly_search

   local_monthly_search

   CPC

   group

2. $worksheet - contains the row, that we want to read

   KEY	GLO	LOC	CPC	GROUP
   1_1	1_2	1_3	1_4	1_5

3. $row - row number in the worksheet. Enumeration starts from 0.
4. $n - number of elements in $headers_ref. I thought, it's better to calculate it once outside the function, that calc it here for every call.

Output

Hash ref:

word	1_1
global_monthly_search	1_2
local_monthly_search	1_3
CPC	1_4
group	1_5

Code

sub read_row
# {{{
{
      my $headers_ref = shift;
      my $worksheet = shift;
      my $row = shift;
      my $n = shift;

      my %result;
      for (my $i = 0; $i < $n; $i++) {
            $result{$headers_ref->[$i]} = $worksheet->{Cells}[$row][$i]->value;
      }

      return \%result;
}
# }}}